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Avertissement 


Ce livre s'adresse aux possesseurs de CPC 464 ou CPC 664 qui ont 
déjà pratiqué le BASIC et qui veulent aller plus loin. 


L'ouvrage propose un ensemble de 80 programmes utilitaires qui vous 
permettront de manipuler simplement le générateur sonore, le graphisme 
haute résolution, ou de rajouter des fonctions au BASIC Amstrad. 


L'ouvrage se compose de cinq parties : 


- les fonctions évoluées de l'Amstrad ; 

- améliorations du BASIC Amstrad ; 

- le générateur sonore ; 

- les modes graphiques haute résolution ; 
- Utilitaires d'ordre général. 


0 “Les fonctions évoluées de l’Amstrad” donne un ensemble 
d'outils pour mieux utiliser l'Amstrad. 


“Améliorations du Basic Amstrad” permet d'ajouter des instruc- 
tions au BASIC de cet ordinateur, comme MOD, DIV, DUMP, etc. 


0 “Le générateur sonore” détaille la structure du synthétiseur sonore, 
montre comment créer des bruits d'animation et facilite l'écriture de mor- 
ceaux de musique sur une, deux ou trois voix. 


o “Les modes graphiques haute résolution” détaille la structure 
de l'écran graphique, montre comment écrire des jeux d'animation, 
comment redéfinir les caractères standard et donne divers utilitaires gra- 
phiques. 
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0 “Utilitaires d’ordre général” propose un ensemble de programmes 
facilitant les entrées/sorties écran, un mini-éditeur de textes 80 colonnes 
et divers autres utilitaires. 


0 Un avant-propos donne une méthode pour faciliter l'écriture et la lisi- 
bilité des programmes BASIC. 


BASIC : partir 
sur de bonnes bases 


LES ORIGINES DU BASIC 


Le langage BASIC a été créé en 1964 aux États-Unis. La signification du 
sigle BASIC (Beginners All Purpose Symbolic Instruction Code, ou encore 
Codage d'instructions à usage général pour débutants) nous montre que 
ses auteurs le désignaient avant tout comme un langage simple, utilisable 
par les débutants. 


Aujourd'hui, le BASIC a bien évolué et s'impose aussi bien sur la plupart 
des micro-ordinateurs familiaux que dans certaines applications profes- 
sionnelles. Tout en gardant sa simplicité d'emploi, il a su devenir puissant 
et souple. 


Le langage BASIC se compose d’un certain nombre de mots clés ou 
instructions (154 pour le CPC 464). Deux machines différentes utilisant le 
langage BASIC n'auront pas exactement le même vocabulaire. En effet, 
certaines instructions varient d’un ordinateur à l’autre, en raison des pos- 
sibilités particulières de chaque appareil. Ainsi, un ordinateur qui ne pos- 
sède pas de générateur sonore n’a rien à faire de commandes de génération 
de son. Ou encore, un ordinateur ne travaillant qu'avec deux couleurs n’a 
rien à faire d'instructions de manipulation de couleurs. 


Malgré cela, la plupart des mots clés du BASIC sont indépendants de 
l'ordinateur utilisé, de sa marque et de son pays de fabrication. On peut 
donc parler de l’universalité du BASIC, en sachant très bien que ce terme 
n’est pas entièrement vérifié. 


Le BASIC ainsi défini, il peut sembler facile d'écrire un programme en 
mettant bout à bout un ensemble de mots clés. 
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Les paragraphes qui suivent montrent qu'il n’en est rien, et que l'écriture 
d’un programme BASIC demande méthode et réflexion. 


MIEUX PROGRAMMER 
EN DÉFINISSANT SES OBJECTIFS 


Considérons un programmeur débutant qui a l'intention d'écrire un pro- 
gramme de sa conception. Très souvent, il s'y prendra de la façon suivante : 
il s'assiéra devant la machine et commencera à taper ce qu'il croit être un 
programme, sans avoir pris le temps d'y réfléchir. 


Deux cas peuvent se présenter : 
- le programme à écrire est court et/ou simple ; 
- le programme à écrire est long et/ou complexe. 


Dans le premier cas, et avec un peu d'expérience, le programmeur 
pourra arriver à ses fins, après quelques tentatives infructueuses. 

Dans le second cas, le programmeur peinera pour écrire un programme 
sans structure et très difficilement compréhensible pour lui-même ou pour 
d’autres programmeurs. || pourra même ne plus comprendre ce qu'il a écrit, 
et arrêter son travail, découragé. 


Heureusement, il existe une méthode pour permettre aux programmeurs, 
débutants ou expérimentés, d'écrire des programmes clairs et facilement 
compréhensibles, même si la tâche qu'ils réalisent est longue et complexe. 


La clé de cette méthode réside dans l’“analyse du problème” que l'on se 
propose de résoudre par l'écriture d'un programme. Cette analyse dé- 
bouche sur une définition des objectifs. 


La plupart des programmes peuvent être mis sous la forme suivante : 


ENTREE — TRAITEMENT — SORTIE 
La sortie du programme est l'objectif à atteindre, le résultat à calculer ou 
à afficher. 


L'entrée du programme représente les données nécessaires à la réali- 
sation des sorties. 


Le traitement représente l'ensemble des opérations à faire subir aux 
entrées pour obtenir les sorties désirées. 
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La définition des objectifs consistera à classer et décrire l'ensemble des 
entrées/sorties et le traitement. Plus cette description sera détaillée, plus il 
sera ensuite facile d'écrire les instructions correspondantes en langage 
BASIC. 


Par exemple, pour un programme de jeu : 
- les entrées peuvent être les différentes commandes de dép'a- 
cement et de tir entrées au clavier ; 
- les sorties peuvent être le déplacement de divers objets sur 
l'écran ; 
- le traitement peut être la définition graphique des objets ; l'inter- 


prétation des commandes entrées par le joueur, le déplacement 
effectif des objets. 


Arrivé à ce point, deux choses très importantes restent à faire : organiser 
ses objectifs en définissant une structure et hiérarchiser les fonctions du 
programme. 


MIEUX PROGRAMMER EN ORGANISANT SES 
OBJECTIFS : 
CONCEPT DE STRUCTURE 


Les entrées/sorties et le traitement étant définis, il est nécessaire de 
donner une structure au traitement. Autrement dit, il faut organiser la tâche 
plus ou moins complexe que constitue le traitement en un ensemble de 
sous-tâches plus simples, chaque sous-tâche étant définie par un traite- 
ment spécifique. 


Prenons l'exemple suivant : le programme à réaliser a pour objectif le 
tracé d’une courbe représentée par une équation quelconque de la forme 
Y=1{(x. 

L'analyse des objectifs nous montre que les entrées sont : 

- domaine d'étude ; 
- équation de la courbe. 
La sortie est : affichage du min et du max sur la courbe. 


Le traitement est : résolution et affichage de l'équation entre les bornes 
du domaine d'étude choisi. 
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Si nous poursuivons l'analyse, le traitement peut se décomposer en : 


- Recherche de l'échelle en Y (pour faire apparaître la courbe sur 
tout l'écran), 


- Recherche du pas du tracé (distance entre deux points de l'axe 
Ox), 


- Tracé d'un point aux coordonnées X, Y. 


Le traitement se décompose ici en trois sous-tâches élémentaires. 
L'écriture d'un module ou procédure pour chaque sous-tâche constitue 
la structure du traitement. 


Arrivé à ce niveau, il ne reste plus qu'une étape avant le codage puis 
l'écriture du programme sur la machine. 


MIEUX PROGRAMMER EN DÉFINISSANT DES 
NIVEAUX : | 
CONCEPT DE HIÉRARCHIE 


Nous avons vu qu'il était nécessaire de diviser la tâche traitement en 
sous-tâches plus simples. 


L'exemple précédent peut se schématiser comme suit : 


Tracé de 
courbes 


Î 3 


Cette représentation ou “graphe hiérarchique” suffit à elle seule pour 
définir la structure du programme. 


Sous-tâche 
2 
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Pour cet exemple précis, la programmation BASIC sera la suivante : 


10 REM Trace de courbes 


20 s 
30 GOSUE 1000 ‘Entree 

40 GOSUR 2000 Traitement 

JO GOSUR 5000 ‘Sortie 

60 : 

70 END 

80 REM SR Re PS Sr ten een GS DS Se dt ner el en nr 
1000 KEM Entree 

1010 : 

1020 REM Saisie de l'equation et du 
19050 REM domaine de definition 

1040 

1050 RETURN 

1060 REM cu ne ven ae nee en donnee den 
2000 BEM Traitement 

2010 

2020 GOSUE 10000 ‘Echelle 0y 

BOEO GOSUR 11000 ‘Fas On 

2040 FOR Isei TO NEFTS STEF FAS 

20950 GOSUR 12000 ‘Trace d'un point 
2060 NEXT TI 

2070 

2080 RETURN 

ROC EM mes nee see me ee ane nee co ae ne ao ae ee cons ane anne ae ne one one ca ae ae ane ae 
REM Sortie 


Atfichage des Min et Max 


LE TURN 


ST 


ne QE ne 0 pat 
10000 RENM Echelle Oy 
10010 LR . 


REM Fecherche de l'echelle 


10040 RETURN 

LOEB REM css vue co mes ne ee ce me con me cone ane ne ones ae ae ae one pee ae ae 
11000 REM Recherche du pas Üx 

11010 5 


REM Calcul du pas 


11040 RETURN 
L'ACSO  PÉ PE ee bise Re ne Dm te rt men ne 2e 
12000 REM Affichage d'un point 


REM Foint aux cocrdonnesgs X,Y 


12040 F ETLUEN 
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Cet exemple simple fait appel à une structure à trois niveaux hiérar- 
chiques. Des programmes plus complexes peuvent demander quatre et 
même cinq niveaux hiérarchiques. Les sous-tâches se décomposent alors 
en blocs plus élémentaires qui se décomposent eux-mêmes en d’autres 
blocs plus élémentaires. 


VERS UNE PROGRAMMATION EFFICACE 


La dernière étape constitue l'écriture du programme. Les objectifs étant 
définis, le traitement structuré et hiérarchisé, vous pouvez probablement 
gagner du temps en tapant directement votre programme au clavier, plutôt 
que de l'écrire sur une feuille, puis le recopier. 


Deux derniers conseils : 


- Affectez à chaque niveau hiérarchique un groupe de n° de lignes. 
Ainsi, écrivez par exemple : 
le niveau 1 entre les lignes 10 et 100 ; 
le niveau 2 entre les lignes 100 et 1000 ; 
le niveau 3 entre les lignes 1000 et 10000 ; 
etc. 


- Documentez votre programme en insérant un nombre non nédgji- 
geable de remarques (REM) concernant les entrées, sorties et 
traitement de chaque module. 


Ces tâches peuvent vous paraître fastidieuses mais, si vous les suivez 
méthodiquement, vous vous féliciterez de la facilité avec laquelle vous 
pourrez insérer une modification six mois après la création du programme... 


Chapitre | Les fonctions 
évoluées 
de l’Amstrad 


Ce chapitre donne la manière de se servir au mieux des fonctions BASIC 
de l'Amstrad, ou de ses routines internes. 


Les fonctions simples, communes à la plupart des BASIC, ne sont pas 
reprises ici. L'étude porte sur cinq sujets : 


- les fonctions logiques ; 

- la fonction DEF FN ; 

- le chaînage de deux programmes avec passage d'arguments ; 
- les fonctions spécifiques Amstrad ; 

- les routines Assembleur utiles. 


LES FONCTIONS LOGIQUES 


Fonctions de l’Amstrad 


A AND B Utilisation de AND 


0 IF A=4 AND C=5 THEN PRINT 
s Une ligne sera sautée si A=4 et C=5. 
0 


AND 


Oo > 
©O = = O©O œ 
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OR A | B || AORB Utilisation de OR 
0 | O (0) IF A=4 OR C=5 THEN 20 
SUN TE 1 Le débranchement à la ligne 20 se 
1 1 1 fera si A=4 ou C=5. 
RS 1 
NOT A || NOTA Utilisation de NOT 
1 IF NOT A=B THEN PRINT 
1 (à) 
Si A=B n'est pas vrai, autrement dit si A<>B, alors une ligne est sautée. 
XOR À | B ||AXORB Utilisation de XOR 
0 | O0 0 IF À XOR B THEN 10 
01 1 Le débranchement à la ligne 10 se 
| . : fera si A=0 et B=1 ou si A=1 etB=—0. 


Remarque : Les fonctions AND, OR, NOT et XOR s'étendent égale- 
ment aux nombres entiers compris entre —-32768 et 32767. Le résultat est 
alors égal à la fonction appliquée à chaque bit des deux nombres impliqués. 


D'autres fonctions logiques sont parfois utilisées sur des machines dif- 


férentes. Voici la liste des plus courantes et les programmes qui permettent 
de les simuler en logique booléenne (sortie à 1 ou à O). 


Fonction NOR (Non OU) 


A | B || ANORB 

0 0 1 | Si A et B sont faux, alors À NOR B est 
(0) 1 0 vrai. 

Â L 0 

1 (e) (0) 


Utilisation 
Soit un jeu dans lequel un avion à hélice est animé. Si l'hélice ne tourne 
pas et s’il n’y a plus de carburant, alors l'avion s'écrase. 


Si HELICE=1 indique que l’hélice tourne et CA=1 indique qu'il reste du 
carburant, alors IF HELICE=1 NOR CA=1 THEN GOSUB ECRASEMENT 
lancera la procédure d'écrasement. 
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Le programme 


A et B contiennent les variables à tester. 
X contient À NOR B à la sortie du programme. 


L REM HKMXCE M MOKOK NOK KO HONOR HE AOKOKO NOK K 
2 REM  % * 
% REM X SIMULATION DE LA FONCTION * 
4 REM  X LOGIQUE * NOK? * 
d REM  X * 
6 REMAKE MONO KOKOKOCEOKOUOKOHOKOH OX OK X 
7 REM  X 

8 REM XX Entreg : Var à et FE 

9 REM X Sortie : Resultat dans X 
10 KEM % ) 
LL REP XX OK NOK OKON HOMOK ACEOKOK M NOK KCKCK XX X 


20 CLS: INFUT'Fremier parametre "sé 
EOCINPFUT'"'Deurieme parametre "EE 

40 GOSUE 100 : KEM & NOK E 

0 PRINT A" NOR PE = "x 

&0 END 

7 [a] Fi FE M jade Lao Citons ce En eee Goes 0 um 0060: ue ES dons en te ou cu DE OR monts ue éd sosie 
100 REM Calcul de la fonction NOK 
LOL 8 

110 Xæ0 

180 IF eo AND Be0 THEN Xæ1 

150 

140 RETURN 


Analyse du programme 


Ligne 110 : Sortie par défaut. 
Ligne 120 : Calcul de la fonction NOR. 


Fonction NAND (Non ET) 


A NAND B 


Si A vrai et B vrai, alors A NAND B faux ; 
/ | tous les autres cas donnent À NAND B 
vrai. 


OO > 
©O = = O œ 


— OO — 
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Utilisation 


Le même exemple que précédemment peut être repris : 


IF HELICE=1 NAND CA=1 THEN GOSUB DEFAILLANCE 


En effet, si l'hélice ne tourne plus (HELICE = 1 faux), ou s'il n'y a plus de 
carburant (CA=1 faux), alors la procédure DÉFAILLANCE est lancée. 


Le programme 


A et B contiennent les variables à tester. 
X contient A NAND B à la sortie du programme. 


AE OO AC HO CHE KO CACHE AC ON EEK HO OK EX 
%# * 
X SIMULATION DE Lé FONCTION X 
*X LOGIQUE ‘NAN? % 
AK EH HONON AC HO OM AE HE KE ONE RO HONN Tr 
* # 
*X Entrée : Var À æ&et E # 
X rhtie + Resultat dans X 


E2 
Le ae 


AAA AH MO IC AO ICO 


Hu £\ 
Û 


CLS: INPUT "Premier parametre sé 
INFUT'Deuxieme parametre ME 
GOSLE 100 2 REM & NASND FE 

FRINT A! ONAND MR OX 

ER) 


RENM Calcul de la fonction NAND 


X=1 
IF A=1 AND E=1 THEN Xx0 


140 RETURN 


Analyse du programme 


Ligne 110 : Sortie par défaut. 
Ligne 120 : Calcul de la fonction NAND. 
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Fonction IMP (Implique) 


’ 
1 Seul le cas A vrai, B faux donne A IMP 
1 B faux. 
(0) 


OOo > 
O = = O œ 


Utilisation 


Soit une serrure. Si vous possédez la clé (CLE=1) et si la serrure est 
fermée (FE=0), alors vous pouvez ouvrir la porte. 


IF NOT ((CLE=1) IMP (FE=1)) THEN GOSUB OUVRIR 


Le programme 


A et B contiennent les variables à tester. 
X contient À IMP B à la sortie du programme. 


HEC CA ACC 


* 

FONET TON % 

k 

k 

HEXEMAEMXMNNEX 

* 

*k Le 4 
# dans XX 
* # 
MCE UE MC HCK KR MCE KO OK A CK KM CC CE AK KL 


INFLT Er 


JT Det: 


Leo 


AU OIME "E" = "x 


de le fonction INF 


Analyse du programme 


Ligne 110 _ : Sortie par défaut. 
Ligne 120  : Calcul de la fonction IMP. 
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Émulateur de fonctions logiques 


Pour terminer ce paragraphe sur les fonctions logiques, voici un pro- 
gramme mettant en œuvre une fonction booléenne aussi complexe que 
vous le voulez, constituée des opérateurs booléens AND, OR, NOT, XOR. 


Le programme 


Donnez le nombre de variable(s) de la fonction à définir, puis entrez en 
75 une fonction booléenne appelée FNA(F). 


Exécutez le programme à partir de la ligne 50. La table de vérité de la 
fonction booléenne est alors affichée. 


Remarque : Les variables booléennes de la fonction FNA(F) sont appe- 
lées V (i), où i varie de 1 à NV (nombre de variables). 


MEN NEOME M ACC MCE NOK ACER HE CNE MENACE AC 

X 
MENT EMULATELIF * 
X DE FONCTIONS LOGIGUES * 
* *X 
MTOHOMOKOR HRK OKON HEOKOHCKOMOKONENE HE KONENE KO NY 


* 
Entrées +: Fonction 1ogique  X 
Nbre de variables %* 

Sortie : Table de verite 


* 
12 REM KXEXXKEEMEKNEMEMEENXEAMAREXMAX 


0 CLS: PRINT '"'Definissez votre fonction boolsegenneæ" 


F0 FRINT'en 75 puis tapez ‘AUN So" 


40 STOF 


es [à] F Fe M sonne mage situe 00e none annee cubes sue conte ones some tee moe tee 00e 6è0e 000 pabms tes om evo ao mme 00 os oo ant mode same eee 
60 INPUT "Nombre de variables !":NV 
70 CLS 


75 DEF FNA(F)æ(V(0) AND V(1)) OR V() 
80 FOR Fe0 TO ZNV-1 

TS K1=P 

LQQ | 
110 
120 £ 
150 = E2e0 THEN V(NV-1-D)#1:K1eK2 
140 TU 

150 FOR 1=0 TO NV-1 
140 FRINT VCI): 
170  NEXT I 

180 PRINT “!U;FNA(F) 
190 NEXT P 


TI) QG STEF -1 


LES FONCTIONS ÉVOLUÉES DE L'AMSTRAD 23 


Analyse du programme 

Lignes 20 à 40 : Définition. 

Ligne 75 : Définition de la fonction. 

Ligne 80 : Boucle sur le nombre de variables. 
Lignes 100 à 170 : Affichage de l'entrée. 

Ligne 180 : Affichage de la sortie. 


LES FONCTIONS RÉSERVÉES A 
L'UTILISATEUR : DEF FN 


La fonction BASIC DEF FN permet de définir simplement une fonction 
mathématique qui sera utilisée dans la suite du programme. 


Le but de cette fonction est double : 


- exécuter une seule fois la définition de cette formule et l'utiliser 
par la suite sous forme réduite (gain de place et de temps) ; 


- permettre à un utilisateur non programmeur de définir la fonction 
qui l'intéresse. 


Exemple d'utilisation 


Soit une fonction mathématique. Nous voulons connaître son maximum 
et son minimum dans un intervalle donné. 


Ce problème se symbolise comme suit : 


Entrée de la 
fonction et de 
l'intervalle 


Calcul MAX et MIN 


BASIC + AMSTRAD 
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Programme 

LOGO REM #4 ko KO DONNE CHOC GCK HOME HOOKOHKE NOKCK OX 
1919 REM * Recherche du minimum et du maximum x 
1920 REM *% d'une fonction sur un intervalle donnex 
LOEO REM ck ok ke Ok OKOAO OK A KOHOKCO CHOC K OKON AXE KA RXNX 
1040 


1080 
a! 

1080 
1070 
1590 
1595 
11600 
1110 
1150 


1180 


CLS: FRINT"Tapez ‘1150 DEF FNA{X)=" 


FRINT "fonction a etudier,. 
FRINT: FRINT"Tagez 


STOF 
REM Saisie de l'intervalle 


suivi de 1 


ensuite ‘RUN 1100°" 


FRINT:FRINT'Entrez l'intervalle d'etude :" 


PRINT: INFUT°Minimum "3 MI 
FRINT: INPUT "Maximum "3 MA 


DEF FNACX)=SINCX) 


REM Calcul des minimum gt Maximum 
Ve 1415 2: VeiE+1s 
ECR XeMI TO M8 STEF (MA-MI)/100 
TEFNA XX) 
IF TU THEN UeT 2: REM Maximum 
IF TEV THEN V=T 3 REM Minimum 
NEXT X 
REM fffichage des resultats 
FRINT: FRINT"'Le maximum est 3 "sU 
FIINTE: FRINTMLE minimum egt 5 


END 


Analyse du programme 


Lignes 1050 à 1080 : Présentation. 

Lignes 1100 à 1140 : Saisie de l'intervalle d'étude. 
Ligne 1150 : Définition de la fonction. 
Lignes 1160 à 1230 : Calcul des min et max. 
Lignes 1240 à 1270 : Affichage des min et max. 
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CHAÎNAGE DE DEUX PROGRAMMES 
AVEC PASSAGE DE PARAMÈTRES 


Lorsqu'un programme occupe une place très importante en mémoire, il 
est parfois nécessaire de le scinder en plusieurs programmes plus courts. 


Ces programmes sont alors chaînés pour réaliser l'ensemble des tâches 
initialement prévues. 


Le problème suivant se pose : les résultats calculés dans l'un des pro- 
grammes peuvent être nécessaires dans un autre programme de la chaine. 
Comment préserver ces résultats ? (L'instruction “LOAD” efface en effet 
toutes les valeurs des variables BASIC.) 


Si les programmes sont chaînés de manière immédiate, aucun problème 
ne se pose car le BASIC Amstrad a prévu cette éventualité. Il suffit de faire 
“CHAIN MERGE” <Programme chaîné>. Les variables du programme 
appelant ne sont pas détruites. Par contre, si le chaînage est différé dans 
le temps (il peut être nécessaire d'effectuer des opérations complémen- 
taires avant le chaînage), la mémorisation sur un support magnétique des 
variables qui ne doivent pas être détruites s'avère nécessaire. 


Supposons que le programme N calcule des valeurs qui sont nécessaires 
au programme N+1, et que le programme N+1 soit chaîné au programme 
N. 


Nous allons prendre le cas très général dans lequel le programme N 
calcule : 


- des chaînes, 
- des entiers, 

- des réels, 

- des tableaux, 


nécessaires au programme N+1. 
Les deux programmes qui suivent sont à incorporer respectivement dans 
les programmes N et N+1. Ils sont appelés par “GOSUB 10000”. 


Le premier, situé dans le programme N, sauvegarde les chaînes, entiers, 
réels et tableaux nécessaires. 


Le second, situé dans le programme N+1, récupère les chaînes, entiers, 
réels et tableaux sauvegardés par le premier. 
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Exemple d'appel dans le programme N 


10 ASENCHAINE T's RS=UCHAINE 2" 
20 ElAr12:EZe:24 

50 1H. 54: RE=6546.54é 

40 RAR OUR IE PRET 
Jd0 TO es T()e-g. 5: Tir) r4s 

6 GOSUR 10000 

70 END 


1°" programme 
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10000 REM XX OX OKON OE KORG NOKOHOOCH HO HO OKON OX 
* 


10001 REM * 


10002 REM * FASSAGE DE FARAMETRES FAR FICHIER * 


1Q00Z KEM %* 


x 


10004 REM XX OK OKCK KE KOK OK OK OKOKOHOKOKOKOHOMOKOKOKOKOKOK EEE OK OK HO K X 


10008 
10010 OFENOUT "FASSAGE" 


10020 FRINT #9, A0$:FRINT #9,BS$:REM Chaines 


LOOEN 


FRINT HSSElX:FRINT #O,EZX:REM Entiers 


10040 FRINT #9,R1:FRINT #9,R2:REM Reels 
10080 FRINT H9,TSCL):PRINT HO,TSIDI':RENM T$ 
10060 FRINT #9,TO):EFRINT HO,TCZE PRINT HOT (CE) 


sREM T 
19070 CLOSEOUT 


106 


090 RETURN 


Analyse du programme 


Ligne 10010: Ouverture du fichier séquentiel “PASSAGE” en écriture. 


Ligne 10020  : Ecriture de chaînes. 
Ligne 10030 _ : Ecriture d'entiers. 
Ligne 10040  : Ecriture de réels. 


Ligne 10050 : Ecriture de tableau alphanumérique. 


Ligne 10060 _ : Ecriture de tableau de réels. 


Ligne 10070  : Fermeture du fichier “PASSAGE”. 


Exemple d'appel dans le programme N+1 


19 GOSUER 10000 

20 PRINT A$,EÆ 

20 FRINT ELL,EZYX 

40 FRINT Ri,RE 

90 FRINT T$(1),7T#$0(2) 

6 FRINT T(1),TC2),T(Z) 
7 


8Q END 
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2° programme 


10000 REM HO OOKKOACK KO HOHMOK KONK NC NC HE CHR HONOR CON 
KXXXX 


10001 KREM * 
* 
10002 REM *x LECTURE DE FARAMETRES DANS UN FICHI 
ER * 
100075 REM * 
* 
10004 REM XX X KO OKOKOKOK OK OK ONE KO OM MEME OH EE CO KE OCR CCC OK 
XXXYX 
ONDES 
19010 OFENIN "FASSAGE" 
10020 INPUT #9,4$:INFUT #9,R%# 
10050 INPUT #9,E1%: INPUT #9,E2%X 
INFUT #9,R1i:INEUT #9,R2 
10080 INPUT #9,T$ (C1): INPUT H9,7TS (2) 
10060 INPUT #S9,T C1): INEUT #9,T (2): INFUT #H9,T (ZE) 
10070 CLOSEIN 
10080 
100900 RETURN 


Analyse du programme 

Ligne 10010 : Ouverture du fichier séquentiel “PASSAGE” en lec- 
ture. 

Ligne 10020 : Lecture de chaînes. 

Ligne 10030 : Lecture d’entiers. 

Ligne 10040 : Lecture de réels. 

Ligne 10050 : Lecture de tableau alphanumérique. 

Ligne 10060 : Lecture de tableau de réels. 

Ligne 10070 : Fermeture du fichier “PASSAGE”. 


LES FONCTIONS SPÉCIFIQUES AMSTRAD 


Contrôle des couleurs affichées sur l’écran : les instructions 
BORDER, PAPER, PEN et INK 


Si vous éprouvez quelques difficultés pour comprendre le maniement 
des instructions BORDER, PAPER, PEN et INK, le programme suivant peut 
Vous aider. 
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Mais sachez avant d'exécuter ce programme que : 


- le nombre de couleurs pouvant apparaître simultanément à l'écran 


est intimement lié au mode d'affichage ; 


- quel que soit le mode, la couleur du bord (BORDER) peut être 


une des 27 couleurs du CPC ; 


-_ INK permet d’affecter à un stylo (PEN) une des 27 couleurs dis- 


ponibles ; 


par l'instruction INK. 


Programme 


19 REM Demonstration sur les ordres BORDER, F&F 


ER, 


PEN et INK 


20 REM en MODE ©, MODE 1 et MODE %. 


FO 
1000 
1010 
1920 
1050 
1040 
1950 
1060 
1070 
1080 
1090 
1100 
1110 
1120 


REX HCNAOK HN OOK HO KOKOKOMOOKCK MOCHE OK OK ONE KCCK 
REM *X DEMONSTRATION DE FEN *X 
REM AK HOCOKOE OK HEOKOHEOKOHEOK HO HOMME CN CN 
MODE © 
FRINT'En mode 9, on a 146" 
FRINT'couleurs d'encre s:" 
FRINT: FRINT" Coul eur FEN’' 3: FRINT 
FOR I1=0 TO 15 

FEN I 

READ A: FRINT À 

LOCATE 15,1+6:FRINT I 
NEXT I 
DATA Bleu,dJaune vif,Turquoise vif,kouge vi 


f,Blanc brillant,Noir 


1150 
Hleu 
1140 


DATA Bleu vif,.Magenta vif, Turquoise, Jaune, 
pastel,.kRuse 
DATA Vert vif,Vert pastel ,Bleu/dJaure vif.K 


ose/Bleu ciel 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1250 
1240 
1250 
12840 
f 


1270 


FRINT: PRINT '"'Appuyez sur 1 touche" 
SH=INÉEYS: IF G$S="" THEN 1160 


MODE 1 
FRINT'En mode 1 on a 4 couleurs d'encre 3" 
FRINT:FRINT" Couleur FEN" 
FOR IzO TO Z 
FEN I 


READ AS:FRINT &% 
LOCATE 15,I+6:FRINT TI 
NEXT I 
DATA EHleu,daune vif, Turquoise vif,kKouge vi 


PRINT: PFRINT'Appuyez sur À touche" 


PEN permet de choisir l'encre d'écriture, après l'avoir initialisée 
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1290 AS=INEEVS:IIF A$g="" THEN 1290 
1290 
1500 MODE % 
1310 PRINT'ENn mode ? on a 2 couleurs d'encre : 
1520 FRINT:FRINT" Coul eur FEN': FRINT 
1550 FOR I=e0 TO 1 
1340 FEN I 
1550 REBD AS: FRINT 4% 
1280 LOCATE 15,I+6:FRINT I 
1570 NEXT TI 
1:80 DATÉ Bleu, Jaune vif 
1590 FRINT: PRINT "pouvez sœur 1 touche” 
1400 AS=INEEVS:IF Age" THEN 1400 
1410 3 
2000 REM XGA CE OKON KO ER EE AM EXENHEEEX 
2010 REM *% DEMONSTRATION DE  FAFER x 
2080 REM KO OK HO ON HN MOE OK OKOHEOKOE HOE HOME ON AE HE XK 
n MODE 1 
2040 FRINT'De meme, le MODE © permet 16 couleur 
2080 FRINT "de papiers Le MODE 1 permet 4 couleu 
pres. L 
2069 FRINT'"'de panier et le MODE © permet © coul 
eurs"; 
2070 FRINT'de papier." 
2080 : 
2090 PRINT: PFRINT'Er MODE 0, et en ge reportant 
dans le’ 
2100 FRINT'"Cableau € du quide de l'utilisateur, 


LL 


2119 FRINT'on voit que FAFER 1£ (par ex. donne 
2120 FRINT'la couleur 18, donc Vert vif (dans 1 
e'! 

2150 FRINT'tableau 1) 

21409 FRINT: FRINT'"'Appuyez sur une touche pour co 
ntinuer" 

2150 AS=INEEYS:IF A$="" THEN 2150 

2160 MODE ©:FAFEF 123CLS 

2170 FRINT'Effectivement, " 

2180 FRINT'FAFER 12 donne la" 

2190 FRINT'"'couleur Vert Vif." 

2200 FRINT:FRINT'"'Appuyez gur 1 touche‘; 

2210 FKRINT'pour continuer" 

2220 AS=INEEYS:IF Ag="" THEN 220 


HSE) 


2240 MODE 1 
2250 FRINT'De meme, en MODE 1, PAPER © donnera 


la" — 
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2260 FRINT'ecouleur 20 donc Turquoise vif, et 
2270 FRINT'en MODE 2, F&FER 1 donnera la couleu 
td” LL 

2280 FRINT'"'24 donc Jaune Vif a l'ecran." 

2290 FRINT:FRINT'Appuvez sur une touche pour co 
ntinuer" 

DO ASSINEEVS:IF AS=U" THEN 2560 

REMAKE OX OEOHOKOACK OKON ER EM NAME EEARAXXX 

REM *X DEMONSTRATION DE BORDER * 

REM HO OHOK KO OK ORNE ON ROKOE OR KA MR LA EX XX 

MODE 1 

FRINT'Quel que soit le mode, BORDER donne 


FRINT'eouleur de la bordure de l'ecran." 
FRINT'Cette couleur peut etre choisie parm 


FRINT'les 27 couleurs de base." 

: FRINT:PFRINT'Agpuvezr sur une touche pour co 
rt rue" 

HO9O ABeINEEYVSS IF AS=ENM THEN ZEG9i 

H100 FOR Ieû TO 26 

: BORDER I 

LOCATE 160,10: FRINT'HORDERNST 

F0 FOR J=i TO SOOsNEXT J 

Lao NEXT OT 

FASO FRINT: PRINT 'éppuvez sur une touche pour co 
ntinuer" 

ASEeINEEYS: IF GREEN THEN T160 


REM KE OOK HONOR AO EOKON AC AK AUKONEONOE HE KE XX 

M *x DEMONSTRATION DE INF * 

REM HO OHEOK OK OHOKOKOK ME E EOKON ONCE OK EE XX 

BORDER 1:CLS 

ADAC FRINT'"'Si le mode © permet d'afficher 16" 
4050 FRINT'couleurs differentes eur l'ecran," 
4000 FRINT'le mode 1 quatre couleurs differente 


PAL 
+ 


4070 FRINT'et le mode ? deux couleurs different 
40O FRINT"il est gossible de choisir ces coule 
Lu!" 
4090 FRINT'dans la palette des 27 couleurs " 
4100 FRINT'disponibles par l'instruction" 

4110 FRINT:FRINTOUINE É,Y avec X=No de Stylo (FE 
HN)" 

4120 FKRINT" et Y=Couleur du Stylo" 
A1ZO FRINT:FRINT' Far ex., en mode 1, pour que 1 
ge stylo" 
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4140 PRINT'2 ait la couleur Vert Fastel, on fer 
a LE 

4150 PRINT'INE 2,22 puis FEN 2 pour selectionne 
ami 

4169 FRINT'le stylo 2." 

4170 INF 2,22:FEN 2 

4180 PRINT:FRINT'"'L'ecriture est maintenant Vert 
Fastel." 


Analyse du programme 


Lignes 1000 à 1410  : Démonstration de PEN. 
Lignes 1030 à 1170: en mode 0. 
Lignes 1180 à 1280: en mode 1. 
Lignes 1300 à 1400: en mode 2. 
Lignes 2000 à 2300  : Démonstration de PAPER. 
Lignes 2040 à 2220: en mode O. 
Lignes 2240 à 2300: en mode 1. 
Lignes 3000 à 3170  : Démonstration de BORDER. 
Lignes 4000 à 4180  : Démonstration de INK. 


RANDOMIZE 


L'instruction “RANDOMIZE <Expression Numérique>” permet de fixer 
la séquence pseudo-aléatoire du générateur de nombres aléatoires de 
l'Amstrad. 


Lorsque vous désirez utiliser le générateur aléatoire dans un programme, 
l'instruction “RANDOMIZE” permet d’avoir des séquences aléatoires dif- 
férentes. 


Si vous voulez utiliser la première forme possible pour RANDOMIZE,, il 
vous faut fixer l'expression numérique (pour deux expressions numériques 
identiques, la séquence générée sera la même). 


Pour fixer l'argument du RANDOMIZE, vous pouvez demander à la per- 
sonne qui exécute le programme d'entrer un nombre N, et faire RANDO- 
MIZE N ; mais voici deux programmes qui vous permettront d'éviter cette 
démarche un peu lourde. 


Le premier programme attend l'appui sur une touche. Tant que le clavier 
n'est pas actionné, la variable J est incrémentée. Dès qu'une action clavier 
est détectée, l'instruction RANDOMIZE J est exécutée. 
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Programme 


BEM Utilisation du RANDOMIÉE 


CLS: FRINTApOUSE 


re voi 


J+1 


As OUOTMHEN 140 


1) 10 
INT INT CRAND#ZLO) : 
on: 


Analyse du programme 


Ligne 120 : Message à l'écran. 

Lignes 140 à 160 : Attente d’une action clavier. 

Ligne 180 : RANDOMIZE. 

Lignes 200 à 230 : Affichage d’une séquence pseudo-aléatoire. 


Le deuxième programme se sert de l'instruction TIME comme RANDO- 
MIZE. L'instruction “RANDOMIZE TIME” donnant d'assez mauvais résul- 
tats, une expression un peu plus complexe a été choisie. 


Programme 


100 KENM Utilisation de TIME comme RANDOMIZE 
110: 

10 RANDONMIÉE END CTIME) 1000 

150 FOR Iei TO 10 

146 FRINT INT CRND#1O) 

150 NEXT TI 

Le 

170 END 


Analyse du programme 


Ligne 120 : RANDOMIZE. 
Lignes 130 à 150 : Affichage d’une séquence pseudo-aléatoire. 
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INT, CINT, CREAL, FIX, ROUND 


Si vous êtes un peu déconcerté devant l'abondance des instructions 
permettant d'extraire les parties fractionnaire ou entière d'un nombre réel, 
voici un programme qui pourra vous fixer les idées sur leur utilisation. 


Programme 


LOO REM INT, CINT, CREAL, FIX, ROUND 

110 

120 CLS 

121 PRINT Test de INT,CINT,CREAL,FIX et ROUND 
Ms PRINTs FRINTs FRINT 

SO INPUT "Entrez un nombre "iN 

140 FRINT 

130 FRINT'INT CN) UT NT CRD 

180 FRINT'CINT CON") æMCINT CN 

170 FRINTOCRESL CN) ÆMCREAL CN) 

180 FRINT'EIX CN" ÆMFTX (ND 

190 FRINT CROUND CON, 20 æ CROUND CN, 2) 

200 FRINTROUND CON, 43 = CHOUND CN, 4) 

210 FRINT 

220 LOCATE 1,20: INPUT" Un autre essai (O/Ni s "3 
FE 

BEO IF KR&<s"O0" AND RS£EUNU THEN FRINT CHRS$ (7): G 
OTO 220 

240 IF KR$="Û0" THEN 100 

250 END 


Analyse du programme 


Ligne 130 : Saisie clavier d’un nombre réel. 

Lignes 140 à 210 : Affichage du résultat des fonctions INT, CINT, 
CREAL, FIX et ROUND. 

Lignes 220 à 240 : Poursuite ou arrêt du programme. 


TAG 


Si certains ordinateurs familiaux demandent des acrobaties innom- 
mables pour afficher du texte sur un écran graphique, l’Amstrad ne fait pas 
partie de ceux-là. 


L'instruction TAG permet d'afficher des caractères alphanumériques à 
partir de la position courante du curseur. 
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Jugez plutôt de la simplicité d'emploi de TAG : 


Les deux programmes suivants affirment la souplesse d'utilisation de 
TAG. Le premier programme montre comment graduer les deux axes d'un 
repère Oxy. 


Programme 


REM Exemple d'utilisation de TAG 


EL.S 
RHEM es 


" 
“ 


MOVE 


MOVE 


REM 


l=1 Tf 10 
MOVE SO,204+IXx55 
DRÉAWE 20,0 

NEXT I 


REM fnneotations 


MOVE IXS0-—5+40, 15 
TAGS FRINT I; 
NEXT TI 
FOR I=1 T0 10 
MOVE —10,SS+IX55 
370 TAGSFRINT I 
380 NEXT 1! 
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Analyse du programme 


Lignes 130 à 170 : Axes Oxy. 
Lignes 180 à 280 : Graduations. 
Lignes 290 à 380 : Annotations sur les axes. 


Le deuxième programme est une extension du premier. En effet, il per- 
met de tracer, de graduer et d'annoter les deux axes d’un repère Oxy pa- 


ramétrable. En 


d’autres termes, c'est Vous qui choisissez les coordonnées 


d'origine du repère, ses dimensions, le nombre de graduations sur chaque 
axe, et les valeurs à porter en face des graduations. Toutes ces informa- 
tions sont transmises dans un tableau T(10). 


Programme 


S MODE 2? 
10 FOR I=1 


20 DATA ee . 108, 200 8:64 1256 -0% 


10060 REM 
10070 REM 
10080 PE 
10080 REM 
10100 
10: (Li co 
LOLEC 
oi 
LOL4O0 
10160 
19170 
16106.4 
LOTO KOZT 
NXET 
DYVeT 


TO LOsREGD TCTIENEXT I 


09,0, 0% 


10190 
HERMIONE ENORME CEE MER HCK OK CR MONO OK HCONCK CEE 
* 
TRACE DE REFERES On FARAMETERGELE * 
k 
MONONCK OKON OKON NOCKOKE KO EME ECHEC SO MEOOK ECO KO EE 
x 


bi lolah de. 
# 


Entrées 2 T(l)efboisse origine * 
Tée0rdonngesg Grigine * 

TES) pi * 

T4) 0: % 

* TéSieNonmbre de * 
X Tiéé)eNombre de * 
* TITIEæVa 3 x X 
* (8) 4 * 
* reg E a l'origine * 
X TUO)sIncrement cle * 
* X 
4 ANA HOME AN MA SOMME OM NE MEME NE ME EME MO M HORMONE NONCXCX 


Lie VOeT (2) 8 LX 
LE eNYEeT (6) :DX= TG 


CGDsIVEeT (10) 
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REM Definition des +fleches 


REM Trace 
MOVE 
MOVE 


REV Trace des +fleches 


: DRAWR 


MOVE XOHLX  VO+és TAG: PRINT CHARS CLEO) 
MOVE O4, VOL Ye TAG: FRINT CHRS (151) 


“se es 


FEM Trace des graduations 


FÜF TO NX 
MOVE. KXO+ CLX/ CNX4TOD DAT, YO 
DRAUE 0, 10 
NEXYXT IT 
FOR T1 TO NY 
VE XO-5, YO+ (LY/ CNY+1) 3 XT 
70 DR AU 10, Q 
10480 NEXT I 
10470 ! 
; REM Calcul des echelles 


MX=ARS CDXAHTKÉKNX) "Maximum en 
MVY=ABS CDVA4IT VENT) "Masimaim er 


<< x 


MXE1 THEN 10650 


10570 : 

10990 WHILE MX5%1 
10570 I=l+i 
10600 MX:E=MX 10 
 - WE ND 


GOT 10710 
10640 : 

108650 WHILE MX<1 
104660 I=I+i 
10670 MX=MXX 10 
10680 WEND 

10690 FXe-T 
10700 
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10710 I=0O 

10720 IF MY£1 THEN 190810 
10720 3: 

10740 WHILE MY1 

10750 lI=l+1 

197460 MYeNMY/10 

19770 WEND 

10790 FY=l-1 

10790 GOTO 10860 

10800 

10810 WMILE MY£EI 

10820 I=l+1 

10850 MYENYX10 

10840 WEND 

10950 FYzeT 

108460 
19870 KEM ênnotations 

10880 à: 

LOS9O FOR IQ TO NX 

10900 MOVE XOH4TX CLX/ (NX AT) ) 20, YO 0 
10910 A=INTECCDX+IXKXI) /LOTFK)IKIO) /10 
10920 TAG: FRINT A3 

LOSEO NEXT TI 

10940 
LE É 


BÆTNT CC CDY+INVKI) LOF) KTLO) 10 
TAG: FRINT &: 

NEXT OT 

REM Exposants 

MOVE KOHLX4IO, O4 10 TAG: FRINTINEXS 


MOVE KO SD NOrRL 4208 TABSFRINT CNET 
RETLFN 
Analyse du programme 


Lignes 10190 à 10210  : Conversion des entrées. 

Lignes 10230 à 10270  : Définition des caractères graphiques. 
Lignes 10280 à 10310  : Tracé des axes. 

Lignes 10330 à 10360 _ : Tracé des flèches. 

Lignes 10380 à 10480  : Tracé des graduations. 

Lignes 10500 à 10850  : Calcul des échelles. 

Lignes 10870 à 10990  : Annotations sur les axes. 

Lignes 11010 à 11060  : Facteurs multiplicatifs sur les axes. 
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LES BONNES ADRESSES 
DES ROUTINES ASSEMBLEUR 


Les routines graphiques dont la description suit ont servi à l'élaboration 
du programme “Remplissage de surfaces délimitées par un contour fermé”. 


Ces renseignements sont tirés du « CPC 464 FIRMWARE » qui contient 
l'explication détaillée des routines de la ROM 464. 


GRA TEST ABSOLUTE #BBFO 


Teste l'état d’un pixel à une position absolue. 


Entrée : DE = abscisse X du point. 
HL = coordonnée Y du point. 


Sortie : À = INK du point considéré. 
BC, DE, HL, flags écrasés. 


GRA TEST RELATIVE #BBF3 


Teste l'état d'un pixel à une position relative. 


Entrée : DE = abscisse relative X du point. 
HL = coordonnée relative Y du point. 


Sortie : À = INK du point considéré. 
BC, DE, HL, flags écrasés. 


GRA PLOT ABSOLUTE *BBEA 


Réalise l'instruction PLOT à une position absolue. 


Entrée : DE = abscisse X du point. 
HL = coordonnée Y du point. 


AF, BC, DE, HL écrasés. 
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GRA PLOT RELATIVE #BBED 


Réalise l'instruction PLOT à une position relative. 


Entrée : DE = abscisse relative X du point. 
HL = coordonnée relative Y du point. 


AF, BC, DE, HL écrasés. 


GRA SET PEN #BBDE 


Choisit la couleur de l’encre en HIRES. 
Entrée : À = encre choisie. 
AF écrasé. 


GRA LINE ABSOLUTE *BBF6 


Trace une ligne vers une position absolue. 


Entrée : DE = abscisse X du point à joindre. 
HL = coordonnée Y du point à joindre. 


AF, BC, DE, HL écrasés. 


GRA LINE RELATIVE #BBF9 


Trace une ligne vers une position relative. 


Entrée : DE = abscisse relative X du point à joindre. 
HL = coordonnée relative Y du point à joindre. 


AF, BC, DE, HL écrasés. 


GRA MOVE ABSOLUTE #BBCO 


Positionne le curseur graphique à une position absolue. 


Entrée : DE = abscisse X demandée. 
HL = coordonnée Ÿ demandée. 


AF, BC, DE, HL écrasés. 
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GRA MOVE RELATIVE #BBC3 


Positionne le curseur graphique à une position relative. 


Entrée : DE = abscisse demandée. 
HL = coordonnée demandée. 


AF, BC, DE, HL écrasés. 


Voici quelques autres adresses à usage général : 


CALL &BBFF Initialise l'écran. 
O CALL &BC14 Efface l'écran. 
CALL &BB03 Initialise le clavier. 


CALL &BB06 où 
CALL &BB18  Attend l'appui sur une touche. 


Ü 


Parmi les ordres BASIC évolués, spécifiques à l’Amstrad, qui ne seront 
pas développés ou exploités par la suite, signalons : 


CO BINS$ pour convertir un nombre de base 10 en base 2. 


DI et El qui permettent respectivement l'annulation et le rétablissement 
des interruptions (autres que BREAK) au niveau BASIC. 


CO DEG et RAD pour choisir le mode de calcul trigonométrique en DEGrés 
ou en RADians. 


Oo EOF variable booléenne qui teste si l'unité de cassette est à la fin du 
fichier courant. 


0 HIMEM qui donne l'adresse de l’octet le plus élevé de la mémoire utili- 
sée par BASIC. 


D INSTR qui donne la position d’une sous-chaîne dans une chaîne. 


JOY pour lire la position du joystick. 


D KEY et KEY DEF qui permettent, pour la première, de définir une 
touche fonction parmi 32, et pour la seconde, de changer la valeur al- 
phanumérique produite par la frappe d’une touche. 


0 LOWERS et UPPERS qui permettent, pour la première, de transformer 
les caractères majuscules de l'argument en caractères minuscules, et 
pour la seconde, de faire l'opération inverse. 


0 SPEED INK pour associer les temps d'apparition des couleurs liées 
aux commandes INK et BORDER. 
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SPEED KEY pour définir la vitesse de répétition des touches au clavier. 


SPEED WRITE pour définir la vitesse de sauvegarde cassette. 


STRINGS pour concaténer n fois le même argument alphanumérique. 


WIDTH pour choisir le nombre de caractères par ligne sur une sortie 
imprimante. 


Chapitre | Améliorations 
du Basic 
Amstrad 


FONCTIONS SINUSOÏDALES ET HYPERBOLIQUES 


Fonctions sinusoïdales 


L'Amstrad est assez pauvre en fonctions sinusoïdales. En effet, il pos- 
sède seulement les fonctions ATN (Arctangente), COS (Cosinus) et SIN 
(Sinus). 


Le programme qui suit lui rajoute les fonctions : Sécante, Cosécante, 
Cotangente, Sinus inverse, Cosinus inverse, Sécante inverse, Cosécante 
inverse, Cotangente inverse. 


Sa structure est très simple : 


Début 


Choix d'une fonction 


Entrée de l'argument 


Affichage du 
résultat 
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Programme 


1 REP Xk OM MOCK MON OMR KR OK NOK HN NOK CNE ACK AC K 
2 REM * * 
5 REM * FONCTIONS SINUSOIDALES * 
4 REM %* x 
5 REM XX Ok HO HOKHENCHOK HCOK COCHE NOK HEC AC NON 
& : 
7 DEF FNA(A)=1/C05 (A) 

G DEF FNB(A)=1/SINCA):DEF ENC (A) =1/TAN (CA) 

9 DEF FND( (A) =ATN CA/SOR (-AXA+ 1) ) 

10 DEF FNE (A) =-ATN CA/SQGE C-AXA+1))+1,5708 

Li DEF FNF GG) =ATN(SOR (CAKXA-1))+{SGNtA)-1) 41.535708 
12 DEF FENG (A) =ATNCO1/S0OR(AXA-1))+(SGNCA)-1) 41.970868 
15 DEF FNH(G)=-ATN CA) +1,5708 


20 CLS:FRINT'Choisissez votre fonction ss" 
FO FRINT:FRINT"1) Secante" 
49 FRINT"9) Cosecante" 
50 PFRINT"'E) Cotangente" 
än FRINT"4)Sinus inverse" 
70 FRINT"'5)Cosinus inverse" 
60 FRINT'"'4)Secante inverse! 
Qû FHINT"7)Cosecante inverse" 
100 FRINT"'S8)Cotangente inverse 
110 ee INFUT'Fonction choisie "35F 
180 PFERINT: INEUT "Argument "Ms A 
ON F GOSUR 200,710, 270,270, 240,200, 260,270 
FEÉINT:FRINT'"'RegSultat 2" Xx 
ENT 
F FE M us sr dau rt se cie met ones Sedé oran ee Ce ne mu dde Qu da ae ac 2eme nsc turned ue boom ludie 1e006 
EEM Calcul Secante 
X=FNA CA) 
RETLIFN 
F à = M etes sance cave sance 000 mmes note enoie eee ects o006e ous conte 0000 avec done sono oaone one monte mené ave one one nome ane ous om sat one 
FEM Calcul Cosecante 
ÉSFMNE CA) 
RETLIEN 


Cotangente 


REM Calcul Sinus Inveres 
X=F ND CA) 
RETURN 
Fe Fe M es Jos Dé de M nte La lee ne Em us tue dir ri nr MR et vod a rad om a 
240 REM Calcul Cosinus Inversg 
BA XSFNE C6) 
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FEM Ca lcul Secante Inverse 


Calcul Cogsecante Inverse 
XS=FNG C6) 


RETLIRN 
Fe F M eme mnee ov0ee cause sous ones moe vence etes coute auvet due soute ous van sous année n00e some one mme one ane ones coûte noces 00000 sage drone case 
FES Calcul Cotangente Inverse 


BTL Xx &F NH C6 
272 RETURN 


Analyse du programme 

Lignes 6 à 13 : Définition des fonctions. 

Lignes 20 à 120  : Menu. 

Ligne 130 : Déroutement sur la procédure correspondant à la 
fonction choisie. 

Ligne 140 : Affichage du résultat. 


Lignes 20C à 272  : Routines de calcul des fonctions. 


Fonctions hyperboliques 


L'Amstrad est totalement dépourvu des fonctions hyperboliques usuelles. 
Le programme qui suit permet d'intégrer les fonctions suivantes : 


- Sinus hyperbolique, Cosinus hyperbolique, Tangente hyperbo- 
lique, Sécante hyperbolique, Cosécante hyperbolique, Cotan- 
gente hyperbolique, Sinus hyperbolique inverse, Cosinus 
hyperbolique inverse, Tangente hyperbolique inverse, Sécante 
hyperbolique inverse, Cosécante hyperbolique inverse, Cotan- 
gente hyperbolique inverse. 


Programme 


A AA AO OO 


# 

# LES FONCTIONS HYFERBOLIQUES * 
# x 
AE AH CHENE RAC EEE 


FN té CEXP CAD -EXF ko) 2 
FHE (= CEXF Cf HEXE ii JE 

x imE ME (ep) / EXP (AN +HEXPF CAD) HET 
END(Ai=2/(EXE ÉB)+EXF —éi à 
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FRE (6) = / (EXP (8) -EXF 8) 0 

FNF CA) =EXP(-A) / (EXP (CR) —-EXF CI) KS2+I 
15 FNG C6) =LÛG CA+HSOR CBI) 5 

14 FNH 8) = 06 (A+SOR Cfké- 1) 0) 

9 DEF FNT (4) =LOG((1+é) / (1-6) 5 /2 
lé DEF FNJ (4) sLOG(C(SOR (-k#k+1) +103) /À 
17 DEF FINE 660 LOG (SGAM (kd 4SOR (8x +15 +15 /6 
19 DEF FNL (fi =LOG ((&+1) / (â-1)}/E 
ES 


11 


fe 


:FRINT'"'Choisissez votre fonction s 
EG FRINT: FRINT "Ii Sinus Hvperbolique" 

46 FRINT"E) Cosinus Hyperbolique" 

SO PRINT Tangente Hyperbolique" 

bi FRINT"4) Secante Hvyperbolique" 

70 FRINT'E) Cosecante hyperbolique" 

80 FRINT'"6) Cotangente Hyperbolique 

GC tINT"7)GSinus Hyperbolique Inverse" 
100 FRINT'8)Cosinus Hyperbolique Inverse" 

119 FRINT"9)Tangente Hyperbolique Inverse" 

120 FRINT"I10) Gecante Hyperbolique Inverse" 

150 FRINT'I1l1iCosecante Hyperbolique Inverse" 
140 PFRINT"12)Cotangente Hyperbolique Inverse" 
150 FRINT: INFUT'Fonction choisie ":F 

195 FRINT: INPUT '"'Argument "sé 

160 ON F GOSUR 200,210,220,2350,240,280,2460,270, 
HBO, 250, 500,710 

170 FRINT:FRINT'Resultat :"3% 

180 END 

185 : 

190 REM me con ae ame ane aa ee a 

200 REM Sinus Hyperbolique 

201 X=F NA C6) 

202 RETURN 

DOZ REM een ne mea mo 
210 RENM Cosinus Hyperbolique 

Æ11 X=FNE {60 

212 RETURN 


1 F FE M une mue marée mens aunne co conte vètee mue ann conne ee oo eee come moune ee ee mete aus ae moe rte oo noie annee ot ee tete 


ere 


# Ca 


BEM Tangente Hyperbolique 


F FE F1 ennne anne mmte avvee attee mené veus otane oem ttes tee stuue conte ootee donne coute moe mue ee oenme oonne nome anne 

REM Secante Hyperbalique 
XF RIT) (60 

RETURN 

F: FE ul Li ant on dns ht me te invee came ommne nanne o0008 conbe mans ones moe vom ce cev0e onde saone out ee 

REM Cose te Hyperbolique 


RE TURN 
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DAT RE ee ve me ee sons nee one me ae vo ne ae ae ce ae eos oo ae mu eo de 
250 REM 


x 


Cotancg 
Me RNIE Ci) 
RE TURIN 
Fr FE ul as œnes Corner este 00000) uns 28m Dee aa Le eve buse mue on eme anne enr vo ennen cn: es remet So Bene en er eos os 
REM Sinus Hyper, Inverse 

XF NC C6 


BEM Cosinus Hyper, Inverse 
em (60 


A 
RE Tangente Hyper. Inverse 

1 AX=FNT C0 
282 RETURN 

a a An F E= M RS Ts ER nero 


290 REM 
# 


te Hyper. [nverse 
FR CA) 


00 Cogsecante Hyper. Inverse 

01 X=FNE (6) 

302 RETURN 

RO REM se vue ne a oo ue ane me a ane ave ne ae ae me ae ee ae oo ea ee me 
210 REM Cotangente Hyper. Inverse 

F1 XæF NL (6) 

312 RETURN 


Analyse du programme 


Lignes 6 à 18 : Définition des fonctions. 

Lignes 20 à 155  : Menu. 

Ligne 160 : Déroutement sur la procédure correspondant à la 
fonction choisie. 

Ligne 170 : Affichage du résultat. 

Lignes 200 à 312  : Routines de calcul des fonctions. 


La structure de ce programme est identique à celle du programme pré- 
cédent. 
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FONCTIONS MOD ET DIV 


Fonction MOD (modulo) 


Définition 
Exemple 


Programme 


Exemple 


RL “st 
Fe C 


À 
C 


10 


20 


A=G:E 
GOSUE 
30 FRINT 
40 END 


Programme 
1000 REM 
REM 
FEM 
REM 
. REM 
i REM 
19006 REM 
10007 KEM 
LOOt REM 
10009 REM 
19010 


CæeTN 


: Reste arithmétique découlant de la division de A par B. 
:8 MOD 5 = 3 (reste entier de 8 divisé par 5). 


: Fournir les deux nombres A et B pour lesquels on veut 
connaître la fonction MOD. 
C = À MOD BB est la sortie du programme. 
Ce programme est appelé par “GOSUB 10000”. 


(RIRIATe) 


: KREM 


és MOD E 


ACN AOHOKOMO CHE RON MONO AC HOK HE NCNORE NORME CHENE NON CCK Xe 

X 
MOD % 
*# 
NE ACC HENCHKONHEK NME NCHO NC ONE ACC NC CEE OK ME OK 
# 


* 
X SIMULATION DE LA FONCTION 


X Entrée ss À et FE * 
* Sortie s CO oz & MOD E * 


X * 
RON AN ACHON EH KO HORO AH MEME MON KHON 


TCG-INT CG /EH) XF) 


RETITEN 


Analyse du programme 


Ligne 10020 


: Calcul de la fonction MOD. 


Fonction DIV 


Définition 


Exemples 


: Résultat de la division entière de À par B. 


:8DIV5=1;14DIV3=A4. 
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Programme  : Fournir les deux nombres A et B pour lesquels on veut 
connaître la fonction DIV. 
C = ADIVB est la sortie du programme. 
Ce programme est appelé par “GOSUB 10000”. 


Exemple 


ep NT 


RE AE A DIV E 
40 END 


Programme 

LOC HACK HOME AO AO OMEONOXC MEME KE CNE COR EEE ONCE X 
10001 * k 
LOOONE *X SIMULATION DE LA FONCTION DIV * 
LOOCE * * 
LOC ENONCE AC EH HOMO KM EM NOÉ ONE KR NE SONO 
1000 X *X 
10006 *# Entreg : À et E % 
10007 * Sortie : CO z 4 DIV K * 
1O00E * k 
10009 REM KXKKEKXKEXKXENEMEMNEEXMEMREXERHIHAUX 


10010 
10080 C&INT(A/E) 
LOGE 


10040 RETURN 


Analyse du programme 
Ligne 10020  : Calcul de la fonction DIV. 


OPÉRATIONS EN DOUBLE PRÉCISION 


Addition en double précision 


Définition : Le Basic de l’Amstrad permet de faire des additions de 
nombres réels avec un nombre total de chiffres (avant et 
après la virgule) n’excédant pas 9. 
Ce programme permet de faire des additions sur des nom- 
bres réels positifs avec 9 chiffres maximum avant la virgule, 
et 9 chiffres maximum après la virgule, d'où le nom d’ad- 
dition en double précision. 
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Programme  : Les deux nombres positifs à additionner sont placés dans 
les chaînes AS$ et B$. 
Le résultat en double précision est exprimé dans la chaîne 
CS. 
Le programme est appelé par “GOSUB 10000”. 


Exemple 


19 A$="9897654 
20 GOSUE 10000 
50 PRINT C$ 

40 END 


So": H4="76S04529, 45578547" 


Programme 
LOOOO REM  KOHOMCHOHOKOMOM MM HO MEORHEOK HE RAA AE EE EE HN 


LOI KREM %X 

* 

10002 REM # BDDITION EN DOUBLE FRECTS TION 
x 


x 
10008 REM % 

* 

10006 REM X Entree 5 8, B$ Nombres 
19007 
* 
10008 


*X 


*# 
190010 
* 
LOT 
LOOEE 


craction partie entiere, partie 


EN LA) 
Isle", " THEN J=] 


— 


10080 FOR lei 7 
10060 IF MID#(E 


#0 THEN JeLEN (A4) +1 
TO J-1 
(MID CAE, LA 11-48 
SE L+XAIO® (JT) 
10106 
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ÆLEN CARS THEN Disoe GOF0D 1040 
ns j +1 ro LENC 
DieDi+ (ASC (MIDS CAS, Le Loti HACTCLENCÉS 


10140 0e Dae 0 
LOASO FOR Test TO LENS) 


10] 


&ti IF MID HBS,1,1)e"." THEN Jæl 


=1 TO J-i 
MID CHE, I, 13) 48 
+XYLO% CJ-I-1) 


1F de = 2 LENCES) THEN D2=0:G0TO 10240 
FOR IegJ+1 TO LENCEH#) 
D?æD2+ (ASC (MIDS CRE, TI, 1))-48) X10T (LENCES 


NEXT TI 
LiLENCSTRS (INT (CDI) ) 3: LESLEN(STRS (INT (DE) 


LIGLE THEN DRseDEx 10" (LIL) 
IF L2%Li1 THEN Di=D1kx10"(L2-L1) 
Dis EN TÉDI1) 5 DES INT (DE) 


REM &dadi tion 


f D: #5 ES TERS CINT CDI +DET ) 

Mn IF LENCD#&iæLi OR LENCD#iaeLE THEN ReGs GOÜTO 
+ LE. a À de La reterue 

D Re T GATE € o LEN CD th 


5 CINT(EL+HES+R) 0) 
dE DESRES 


u 
RETURN 


Analyse du programme 


Lignes 10020 à 10240  : Extraction des parties entières et décimales des 
nombres à additionner. 
Lignes 10250 à 10350  : Addition. 


Remarque : Pour ne pas présenter un programme trop complexe, seule 
l'addition de nombres réels positifs a été envisagée. Le lecteur pourra, à 
moindres frais, transformer ce programme pour permettre l'addition de 
nombres positifs ou négatifs. Enfin, en partant du même principe (manipu- 
lation de chaînes), il sera intéressant d'écrire des programmes de soustrac- 
tion, multiplication, division, extraction de racine carrée, etc. 
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CHANGEMENT DE BASE 


Définition 


: Base = nombre d'unités d'ordre n nécessaires pour former 


une unité d'ordre n+1. Ainsi, en base N, les nombres 
s'échelonnent de 0 à N—1, puis de 10 à 1(N—1), etc. 


Conversion base B -> base 10 


Définition 


Programme 


Exemple 


10 DIM A(100) 


: Un nombre en base B est converti en le même nombre 


exprimé en base 10. 


: Fournir le nombre en base B rangé par unités dans le ta- 


bleau A. 

Fournir la base B dans laquelle est exprimé ce nombre. 

Le résultat est le même nombre exprimé en base 10 dans 
N. 

Ce programme est appelé par “GOSUB 10000”. 


20 A(1)=2:A(2)=3:A(3)=1:EH=7 
30 GOSUR 10000:REM Conversion 
40 PRINT N:REM Nombre converti 


930 END 


Programme 


10000 


190001 
10002 
10007 
10004 
10005 
10006 
10007 
10008 
10009 
10010 
10011 
10012? 
10029 
10070 
19040 
10050 
10060 
10070 
10080 
10090 
10100 


REM XX ONHOKOKAONHONNONKAONOKOKOAOKONOKOK KOHONMOKOHONO NO NON ACXK 


REM *X * 
REM * CHANGEMENT DE KHASE * 
REM * EASE K -  HASE 10 * 
REM * * 
REM XX XX OAOK OK OK OKON ONOK OK OK OKON KOKONOK NOK KONOKOCKON 
REM * * 
REM * Entree : A=Nombre a convertir x 
REM * E=EHase de conversion * 
REM * Sortie : N=Nombre converti X 
REM * * 

* 


REM XX OX AOKOKOKOKOK OK KOOKOK OR OKOK OK AONOKOOKOKK ERKXX 


FOR I1=1 TO 100 
IF A(I)<25:0 THEN J=I 


NEXT I 


FOR I=i TO J 
NEN+A(CI)XE" (J-I) 


NEXT I 


RETURN 
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Analyse du programme 


Lignes 10020 à 10040  : Calcul du nombre de chiffres du nombre exprimé 
en base B. 
Lignes 10060 à 10080  : Conversion. 


Conversion base 10 — base B 


Définition : Un nombre en base 10 est converti en le même nombre 
exprimé en base B. 


Programme _ : Fournir le nombre N en base 10. 
Fournir la base désirée B. 
Le résultat est le même nombre exprimé en base B dans 
le tableau A où chaque case représente une unité. 
Ce programme est appelé par “GOSUB 10000”. 


Exemple 


19 DIM A(100) 
20 N=122:EB=16: GOSUER 10000 
20 FOR 1=J TO 1 STEF -—-1 


40 PRINT AI); 

30 NEXT I 

60 END 

Programme 

10000 REM XX XX ONOXOK OKON ONOK HON OKON KOKOKOKOK HN NOK OX 
10001 REM * * 
10002 REM * CHANGEMENT DE BASE * 
10007 REM * EASE 10 —-; HASE KE * 
10004 REM * x 
10005 REM XX XX OKOK KR KO OKOKOKOKOKKOK KO KO OO ON KR IOX 
10006 REM * * 
10007 REM * Entree : N=Nombre a convertir * 
10008 REM * EB=Base de conversion * 
10009 KREM * Sortie : A=Nombre converti X 
10010 REM * J=Nombre de chiffres * 
10011 REM * significatifs dans A X 
10012 REM * * 
10017 REM XX XX XX XOKOKOKONONOKOKOKOKON KO KOKNO NOK NN KK OX 
10014 : 

10020 R=N 


10030 I=1+1 

10040 ACI)=R-INT (R/E) XE3R=INT (R/H) 
10080 IF Ri=KH THEN 10030 

10060 A(I+1)=R 

10070 FOR I=1 TO 100 


10080 IF A(I)2:0 THEN J=I] 
10090 NEXT I 
10100 : 


10110 RETURN 
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Analyse du programme 


Lignes 10020 à 10060 : Conversion. 7 
Lignes 10070 à 10090 _ : Calcul du nombre de chiffres du nombre exprimé 
en base B. 


OPÉRATIONS SUR LES MATRICES 


Les habitués du calcul matriciel seront bien déçus en constatant que le 
BASIC Amstrad ne comporte aucune instruction sur ce sujet. Que ces gens- 
là se rassurent : voici un ensemble d'utilitaires qui vont permettre de mani- 
puler simplement les matrices. Ces utilitaires sont élémentaires. Ils auto- 
risent les opérations de base (addition de matrices, inversion de matrices, 
saisie de matrices, etc.) nécessaires à toute résolution informatique d'un 
problème matriciel. 


Tous ces utilitaires sont regroupés en un seul programme. Un exemple 
d'appel des utilitaires est donné après leur description détaillée. 


MATCON 


Définition : La matrice X(A,B) est remplie de constantes. 


Programme _ : Fournir la dimension A,B de la matrice et la constante C. 
Sortie : La matrice X(A,B) contient la constante C. 
Ce programme est appelé par “GOSUB 10000”. 


Analyse du programme 
Lignes 10120 à 10160  : Mise à C de la matrice X. 


MATIDN 


Définition : La matrice carrée X(A,A) est rendue égale à l'identité. 
La diagonale de X est formée de 1, les autres éléments 
sont à O. 
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Programme _ : Fournir la dimension A de la matrice X. 
Sortie : La matrice X est rendue égale à l'identité. 
Ce programme est appelé par “GOSUB 11000”. 


Analyse du programme 


Ligne 11130 : Si la ligne | = la colonne J, alors IDN(I,J)=1. 
Ligne 11140  : Si la ligne | <> la colonne J, alors IDN(I,J)=0. 


MATINPUT 


Définition : MATINPUT est utilisé pour attribuer des valeurs, entrées 
au clavier, aux éléments d’une matrice A*B. 


Programme __ : Fournir la dimension AB de la matrice. 


La matrice X(A.,B) est lue. 
Ce programme est appelé par “GOSUB 12000”. 


Analyse du programme 


Lignes 12110 à 12150 : Boucle de lecture de la matrice. 


MATPRINT 


Définition : Affiche les valeurs contenues dans une matrice A*B. 
Programme  : Fournir la dimension de la matrice AB et la matrice à affi- 


cher. 
Ce programme est appelé par “GOSUB 13000”. 


Analyse du programme 
Lignes 13110 à 13160  : Affichage de la matrice X de dimension A,B. 


MATREAD 


Définition : Permet de lire le contenu de la matrice X en consultant les 
DATA contenues dans le programme. 
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Programme _ : Fournir la dimension A,B de la matrice, et les DATA corres- 
pondantes. 
Sortie : La matrice X contient les éléments lus en DATA. 
Le programme est appelé par “GOSUB 14000”. 

Analyse du programme 


Lignes 14110 à 14150 _ : Lecture de la matrice X stockée en DATA. 


MATTRN 


Définition : Donne la transposée d'une matrice de dimension A*B. 
Par cette transformation, la 1" ligne de X devient la 1"° 
colonne de Y, la 2° ligne de X devient la 2° colonne de Y, 
etc. 


Programme  : Fournir la dimension de la matrice : A,B et la matrice à 
transposer X. 
Sortie : Y = Matrice transposée de X. 
Ce programme est appelé par “GOSUB 15000” 


Analyse du programme 


Lignes 15120 à 15160 : Transposition de la matrice. 


MAT + 


Définition : Additionne 1 à 1 les éléments de deux matrices de même 
dimension. 


Programme  : Fournir la dimension des matrices à additionner : AB et les 
matrices à additionner X et Y. 
Sortie : Z = X + Y. 
Ce programme est appelé par “GOSUB 16000”. 

Analyse du programme 


Lignes 16120 à 16160  : Calcul de la matrice Z = X + Y. 


MAT — 


Définition : Soustrait 1 à 1 les éléments de deux matrices de même 
dimension. 
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Programme __ : Fournir la dimension des deux matrices à soustraire : A,B 
et les deux matrices à soustraire X, Y. 
Sortie : Z = X — Y. 
Ce programme est appelé par “GOSUB 17000”. 


Analyse du programme 


Lignes 17120 à 17160  : Calcul de la matrice Z = X — Y. 


MAT* 


Définition : Multiplie 1 à 1 les éléments de deux matrices de même 
dimension. 


Programme _ : Fournir la dimension A,B des matrices à multiplier et les 
matrices à multiplier. 
Sortie : Z = X* Y. 
Ce programme est appelé par “GOSUB 18000”. 


Analyse du programme 


Lignes 18120 à 18190 : Calcul de la matrice Z = X* Y. 


MATINV 


Définition : Une matrice carrée A*A peut être inversée si son détermi- 
nant est non nul. Dans ce cas, le résultat de cette fonction 
est la matrice inverse. 


Programme _: Fournir la dimension A de la matrice carrée, et la matrice X 
à inverser. 
Sortie : Déterminant de la matrice et, s’il est non nul, son 
inverse. 


Ce programme est appelé par “GOSUB 19000”. 


Analyse du programme 


Lignes 19130 à 19460 _ : Calcul de la matrice inverse. 
Ligne 19320 : Affichage du message “pas d'inverse”. 


58 BASIC + AMSTRAD 
Exemple d'utilisation des fonctions MAT XXX 


19 KEM Operations sur les Matrices 
20 à: 
50 DIM KXCIQ,I1O),Y(C10,10),2Z (10, 10) 
40 3: 
92 2 FRINT 
1000 REM Test de la fonction MATCON 
10910 
LOS À Beer CeSss GOSUER 10000 
100 CLS: FRINT'Test MATCON, Ces": FRINT 
LO4G FOR Tel TO À 
FOR Jei TO E 

FRINT XCI,dJ)o: 
3 J 


Rp 1 
1090 NEXT IT 

LLOO 

1110 REM Test de la fonction MATIEN 


MATIDN., se FRINT 
L=i To Fà 

Je TO À 

INT XI, dd) 

d 


en Test de la fonction MATINEUT 


METINEUT, es FRINT 


FRINT à PRANRERESS 
ges di Es GOSUE 12 


de La fonction MATFRINT 


MATPRENT, US PRINT 


LR INT “Test MATREAD. "3 PRINT 


: Jel TO E 
RRINT X£I,d): 
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1550 


1560 
1570 
1580 
1590 
1600 
1610 
1620 
16:50 
1640 
1650 
1660 
16870 
1880 
1890 
1700 
1710 
1720 
17:50 
1740 
1750 
1780 
1770 
1789 
1790 
1809 
1310 
1870 
18:20 
1840 
1850 
1860 


1870 | 


1380 
1890 
1900 


NEXT 


RENM Test de la fonction MATTRN 


FRINT:PFRINT'Test MATTARN, "2 FRINT 
FOR I=1 TO K 

FOR Jei TO À 

FRINT Y(CI,dJ): 

NEXT J 

FKINT 
NEXT I 
REM Test de la fonction MAT+ 


X(1,13=1:X(1,2)=2:5X(1,3)=3 
X(2,1)=4:X(2,2)=5:X(2,3)=6 
Y(i,1)=6:Y(1,2)=5S:Y (1,3) =4 
YV(2,1)=3:Y(2,2)=2:Y(2,2)=1 
A=2:B=3:GOSUEB 16000 
PRINT: FRINT'Test MAT+":FRINT 
FOR I=i TO A 

FOR J=1 TO E 

PRINT Z{I,dJ): 

NEXT J 

PRINT 
NEXT I 


REM Test de 1a fonction MAT- 
X{1,d)=isK(1,2)a=msK (li. He 
X(2,1)=4:X(D,D)=S:X(2,%)= 
Y{1,1)=6:Y(1,2)=53sY(1,23)=4 
Y(2,1)=%:%(2,2)=2sY (2,3) = 
A==:B=5:GOSUE 17000 
FRINT:FRINT "Test MAT-":FRINT 
FOR I=i TO À 

FOR J=1i TO EE 

PRINT Z{I,d)s 


NEXT IT 
REM Test de la fonction MATX 
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1910 X(1, 
ToS6 NUS 
1930 
1940 
195€ 
1980 
1970 PRINT:FPRINT'Test MATAU: PRINT 
1980 FOR I=1i TO À 


1990 FOR J=i TO À 
2000 FRINT Z(I,gi: 
2010 NEXT J 

2020 FRINT 


2OTO NEXT I 

EZ040 3: 

20950 RENM Test de la fonction MATINY 
E0éQ 


2070 X(1,1)=3:X(1,2)=-0,.5:X 
2080 X(2,1)=-1:X(2,2)=0: X (2 
2090 X(3,1)=-1:X (CE, 2)e0,. Six 


2106 Az: GÜOSUE 197000 
2110 PRINT: PRINT Test MATINVE: FRINT 
2120 FOR Ii TO À 

2150 FOR Jzi TO à 

2140 FRINT YCI,J): 

2150 NEXT J 

2160 FRINT 

2170 NEXT I 

2180 : 

2190 END 


Programme 


10000 REM XX XX OK ONHOHCKKOKOKONOHCNNONOHCK KE ACKKOKOKOHOHC HACK NC NCKCKCKX 
10010 REM * * 
10020 REM * FONCTION MATCON * 
10070 REM *X * 
10040 REM XX OK NOK OKOKONNCKOKHOHOKOMONCKNCHOHOHCKENCONOHCHONONOHC NON 
10050 REM * * 
10060 REM X Entree : @,E Dimension de la matricex 
10070 REM * [ms Constante X 
10080 REM * Sortie : X Matrice forces a € * 
10090 REM X X 
10100 REM XX Ok k NO KR HONOR KOHCHOK KOK CHEN HO KE KO HONOR HCE NCCNCNC NX 


LEPLEC" à 

10120 FOR 1=1i TO À 
10170 FOR J=1 TO E 
10140 X{I,J)=C 
10150 NEXT J 

10160 NEXT I 

10170 KETURN 

10180 : 
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11000 
11010 
11020 
11070 
11040 
11050 
11060 
11070 
11980 
11090 
11100 
11110 
11120 
11150 
11140 
11150 
11160 
11170 
11180 
12000 
12010 
12020 
12050 
12040 
12050 
12060 
12070 
12080 
12090 
12100 
12110 
12170 
12130 
12140 
12150 
12160 
12170 
13000 
13010 
1:020 
13050 
17040 
13050 
13060 
1:070 
1:080 
1:090 
17100 
17110 
13120 
13150 
17140 
12150 
13160 
12170 
13180 


REM XX ONCK HOKKONKKOKOK HONCHOK AONCKOHOKONOKAOKOKHOK AOC KO HCKOK CN X 


REM XX X 
REM %* FONCTION MATIDN * 
REM * X 
REM XX OMC NOM OKCK ICE OKOKOKOKOKKOKOKOKOKOKOKOKOK NON HONNCOKOKOKCKNCXK 
REM * X 
REM *% Entree : À Dimension de la matrice x 
REM * Sortie : X Matrice Identite * 
REM * * 


REM XXOXOK OKON OKOK OK KOKOHOKONOKONOHOKOK OK KOKOKOK OKON ECHO HOCKCKX 


FOR I=i TO À 
FOR J=1i TO À 
IF IzJ THEN X(I,J)=i 
IF I£%J THEN X(I,J)=0 
NEXT J 
NEXT I 
RETURN 


REM XCXCHOK NHONCKOKONONXOKOKO NOK KCHOHCHCK NO NOKCKONNC NC KOK NOK KR NCKCKX 


REM X * 
REM * FONCTION MATINFUT * 
REM XX x 
REM  XOK OK MONKOKOMOK OK AOKOOKOKOKOKOKCKOKOKOKOHOKKKOKKOKOKKOKOKNONOKCOKONCK OX 
REM X * 
REM *X Entree : A,k Dimension de la matricex 
REM Sortie : X Matrice lue *X 
REM X*X X 


REM XX HOX NOK OKOKOEONOKOMOKOKOKOKOKOKONOKOK OK OHOKOKOKOKOOKONOKOKOKOEKOKKXK 
FOR Izi TO À 
FOR J=1l TO E 
FRINT "Ligne"1"Colonne"J;: INPUT X(CI,4) 
NEXT J 
NEXT I 
RETURN 


REM XX NON OK KOKOKONKOHNCHONC NON KOHOHCKOKKCKOHOKOKOKKOK KONCKONOKOX 


REM X% * 
REM X FONCTION MATPRINT * 
REM X * 
REM XX ONCHCNNOKONCKOHCKOHOKKONOKONCNCKOHOKHCK AO AONOKOHCHKNONCKOKO NC ACHOKK 
REM *X * 
REM *X Entree : A,EB Dimension de la matricex 
REM *%X Sortie : X Matrice affichee * 
REM * * 


REM XX OKON OKOHOKOKOOKOKONOKOKONOKONOKOHOKOKOKOKONOKONOKOKOKOKONOKOKKOKOX OK 
FOR I=i TO 4 

FOR J=1 TO E 

FRINT X(I,J); 

NEXT J 

FRINT 
NEXT I 
RETURN 
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14000 
14010 
140720 
14070 
14040 
14050 
14060 
14070 
14080 
14090 
14100 
14110 
14120 
14170 
14140 
14150 
14160 
14170 
15000 
123010 


15050 
15060 
15070 
195080 
13090 
19100 
15110 
13120 
15150 
15140 
15150 
15160 
15170 
13180 
164000 


16050 
16060 
16070 
16080 
16090 
16100 
16110 
164120 
16150 
16140 
16150 
16160 
16170 
16180 
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REM XX NOK XOXKONOHHONAK NON NOK AONOHOKOKACHOK AAC AO NOK NOHC AC ICKX 


REM * *X 
REM * FONCTION MATREAD * 
REM * * 
REM XX XX ONOKOKOCKOKONCKOKONCKHOKOK NOK NCKKO NC NONOCKO NC AO NOK NONCNONCK 
REM * * 
REM * Entree : A,B Dimension de al matricex 
REM * Sortie : X Matrice lue * 
REM * * 


REM XOXOKONOKONOA NOKOOKOKOKOKOKOKOK AOMCKOHOKOHOKOKOKONONKONOK NOK OKOKOKOCKX 


FOR I1=1 TO & 
FOR J=i TO HE 
READ X(I,J) 


NEXT J 

NEXT I 

RETURN 

REM XX NC OKOK KR AOKOKOK NOK HOKOHOKONC NOK NOK AC NOK NO ACC CKOKCNX 
REM X * 
REM X* FONCTION MATTRN * 
REM *X * 
REM XX KONOKOKONKOKON ANA NON KOMONCKNCKKONOK ACCRO NC CHOC NON NOK 
REM * * 
REM *X Entree : A,B Dimension de la matricex 
REM X x Matrice a transposer * 
REM * Sortie : Y Matrice transposee * 
REM X * 


REM  XOXOXCKONON KONCNOKOHCKOKOH KR HONOR NOK NOHCKOHONKOHCKOHCKCKHCNKNCNCNNCK 


FOR I=1 TO A 
FOR J=1 TO E 
Y(J,1)=X(I1,J) 


NEXT J 

NEXT I 

RETURN 

REM XX XX ONCONCIONMKOKNONCKOKOMCKOKNCKCKOKONCK AONCNCKKCHONCKOCNCKCK NX 
REM * x 
REM * FONCTION MAT + * 
REM XX * 
REM  XOXCX ON NOKOKONOKONONNOAOKNOKOKO NON KOK NON KOKOHOKOK ON NC ONCKX XX 
REM * x 
RENM *X Entree : A, Dimension des matrices * 
REM *X X,YŸ Matrices a additionner * 
REM *X Sortie : Z = X + Y X 
REM X X 


BEM AH RHONE COCO OO ODIIODEEX 
FOR 1= 1 TO À 
FOR J=1 TO E 
ZCI,J)=X CI. J)#Y CI, d) 
NEXT J 
NEXT I 
RETURN 
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17000 REM XX KHAN OO OO 
17010 REM * $ 
17020 REM * FONCTION MAT - * 
17020 REM * x 
17040 REM XX XX HN AH ONCE OC OO 


17050 REM * * 
17060 REM * Entree : A,B Dimension des matrices * 
17070 REM * X,Y Matrices a soustraire * 
17080 REM * Sortie : Z = X - Y * 
17090 REM * X 


17100 REM XX XX XX OX CKONONCKOKOK NCKONCKCKONCKONCNONONONONC KE KO AONOK KO HCK NCKCKX 
17110 : 

17120 FOR I=1i TD 4 

17130 FOR J=i TO RE 

17140 Z{I,J)=X(I1,J)-Y(I,J) 

17150 NEXT J 

17160 NEXT I 

17170 RETURN 


17180 : 

18007 REM XX XOKOIOKOKOHOKOKONOKONAOK KA HONOR KO NOKONKONKOAC NOK NOK NONOK NOK 
18010 REM *X X 
18020 REM x FONCTION MAT * * 
18070 REM * X 
18040 REM XX XX A XKOKOKONCK NOK KOKOHONONOKOHCKOK NOR HOCKOCK NOK NOK NOK NONOKCXCX 
18050 REM * X 
18060 REM * Entree : A,E Dimension des matrices * 
18070 REM * X,YŸ Matrices a multiplier  X 
18080 REM * Sortie : Z = X X Y * 
18090 REM * * 


18100 REM XX XX ONCNCKOK HN NON NONOKO NON NON NN HONOR NH ACC HOMO CX 
18110 : 
18120 FOR 1=1 TO À 


18150 FOR J=1 TO À 

18140 Z{I,J)=0 

18150 FOR E=1i TO HE 

18160 ZCI,J)=Z(I,J)+XIISE)XY(E,J) 
18170 NEXT HE 


18180 NEXT J 
18190 NEXT I 
18200 RETURN 


18210 : 

19000 REM XX OX NOK OK NOHKOKOK NOK NOK HONON OK NON HCKKONOHCKK NOK KOK NON NOK 
19010 REM * * 
19020 REM * FONCTION MATINV * 
190270 KEM * X 
19040 REM XX XX XX XOKOKAOKOK OK ONOXON KONCKONOKOKNORCHKOKNOKONONOK NON NOKOK 
19050 REM * * 


19060 REM * Entree : A Dimension matrice * 
19070 REM * X Matrice a inverser X 
19080 REM * Sortie : Y Matrice inversee * 
19090 REM *X K Determinant * 
19100 KREM * * 
19110 REM *X x 
19120 : 

1915:0 FOR I=i TO A4 

19149 FOR J=1 TO À 


XOXOKOIONOKOKOOKONOKOKOKKONOKOKOKKONOKOKOKOK ON AOKOKOKOOKOAONOKOKOX 
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19150 YCI,J)=X(I,9J) 
19160 NEXT J 

19170 NEXT I 

19180 E=A-1 

19190 FOR E=1 TO À 

19200 P=Y (EF, 1) 

19210 IF PF<:0 THEN 19:40 
19220 FOR I=E+1 TO A 


19250 Z(EH)=I 

19240 IF Y(I1,1)=0 THEN 192710 
19250 FOR J=1 TO À 

19260 R=Y (K,J) 

19270 Vs J)=YII,J) 

19280 Y(I,J)=R 

19290 NEXT J 

19500 GOTO 19:00 

19310 NEXT I 

19720 FRINT'"'Fas d'inverse !!" 


19370 GOTO 19470 

19340 FOR J=1 TO FE 

19250 YKH,J)=Y(E, J+1)/F 
19360 NEXT J 

19270 Y(E,4)=1/F 

19:80 FOR I1=1 TO À 


19:90 IF I=k THEN 19450 

19400 R=Y (1,1) 

19410 FOR J=1 TO E 

19420 YCI,J)=Y(I,J+1)-RXKY (CE, J) 
19450 NEXT J 

19440 YCISA)=-RXY (CE, 4) 


19450  NEXT I 
19460 NEXT K 
19470 RETURN 


FONCTIONS DEEK, DOKE 


Fonction DEEK 


Définition : Donne le contenu de la mémoire sur deux octets (double 
PEEK). 


Programme  : Fournir l'adresse du premier octet à connaître A. 
Sortie : B = 1°’ octet, C = 2° octet. 
Ce programme est appelé par “GOSUB 10000”. 
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Exemple 


FEM dresse du DEEK 


RE SES 


3 


FORETION DEEE 


* 
*# 
X 
M HO AE AC OA OMR MER KE OK MK KE HKCENCK CN 
k 


Entree au DEEF * 


Sortie 


# 
* 
À * 
AH AC AO AO MEHR HOON HE KA HONE AE AC CE HO HO NONCNCK M 


HE CA) 
E Cé+1) 


Analyse du programme 


Ligne 10020  : 1°’ octet dans B. 
Ligne 10030  : 2° octet dans C. 


Fonction DOKE 


Définition : Place deux octets en mémoires consécutives (double 
POKE). 


Programme _ : Fournir l'adresse du 1° octet et les 2 octets à stocker. 
Ce programme est appelé par “GOSUB 10000”. 


Exemple 
10 1000: B=Sé:C=S7:REM Adresse du DOKE et DATA 


20 GOSUR 10000 
20 END 
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Programme 


10000 FEM XX OKON CON OKON NOMK NOK HOKCKHE HONOR OK NC 
LOOO1 REM % * 
10002 REM %X FONCTION DOFE * 
1OO0E REM * * 
REMAKE CHR OKON HEC HO KO NC HE MC NC AOC CHOC ON 
EM X * 
* Entree : À = Adresse du DOKE * 
* BE = ler Octet * 
* E = eme Octet * 
* * 

* 


10008 
10000 
10010 


LS 


XCNONCH ACHON AOC CACHE EACH HE NE NC KE NOK 


FOEE 86,8 

JOUSQ PFOEÉE ti, © 
10040 
10080 RETURN 


Analyse du programme 


Ligne 10020  : Stockage du 1° octet. 
Ligne 10030  : Stockage du 2° octet. 


FONCTION DUMP : | 
VISUALISATION DU CONTENU DE LA MÉMOIRE 


Définition : Fournit le contenu hexadécimal d’une portion de mémoire. 


Programme  : Fournir le début et la fin de la mémoire dont on veut 
connaître le contenu. 
Le programme liste le contenu de la mémoire, 8 octets/8. 
Ce programme est lancé par “RUN”. 


Programme 


HEART RER OKOK OO OK MORE OR OKOK OK CK KE KA KE OKON EE OK 
10001 REM % # 
Loos REM %* DUNF MEMOIRE # 
LOOCE REM *% x 
10004 REMAKE KORG EEE OK OR KO KO OK KE OKCE WOK NOK EEE KR 


" 
" 


CLS: INPUT '"éDebuté, 2Finr"sD,F:LIGNE=D 
10020 AeINTILIGNE/256): GOSUR 10200: 4$-EH$ 
1GOES ASLIGNE-RAX2S6: GOSUR 10200: £$=ûS$+Eps+" ù 
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(50 


AS=AS+HESE" 0 


19000 FOR I=0 TO 7 
{LIGNE+I) 
AND &r47 THEN AS=RS$+CHRE (6) : GOT 


LOd EC 
1Di10 
Qi 10 
LOUE 
CO OIGieS 

101 NÉEETSE ES 

LOIS NEXT I 

LOL PRINT 8% 

10140 LIGNE =LIGNE+S 

1OU1S0 IF LIGNE £eF THEN 10020 

10186 END 

10170 REP KA A OKOK OKON NO OKOKOEOK OK EE HONOR OH ROME EE OKON OX CE 
1000 REM Sous-programme de conversion 
10210 REM Decimal-Hexadecimal 


PRESS 
LOGE 


IF ASS Tl AND 8544 THEN B88=8$+CHRS (&): GOT 


Entreg : & en Decimal 
10240 REM Sortie : E$ en hexadecimal 
1020 

10280 HeINT (4/16) :C=é-Bxlé 

10270 IF H£eQ THEN H$=CHRS (B+48) 
10290 IF R:9 THEN H$=CHRS&(HB+5€E) 
10290 IF Cie9 THEN B$=R#$+CHRS (C+46) 
1OEO0 IF C9 THEN H$=B#%+CHRS$(C+55) 
10710 RETURN | 


Analyse du programme 


Ligne 10010 : Saisie du début et de la fin du DUMP. 
Lignes 10020 à 10025 :Initialisations. 

Lignes 10030 à 10150 _: Calcul des données à afficher. 
Lignes 10200 à 10310  : Conversion Décimal — Hexadécimal. 


FONCTION IN 


Définition : Permet de savoir si un élément se trouve dans un en- 
semble. 
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Programme  : Deux programmes sont fournis : 
- un pour les chaînes de caractères ; 
-_ Un pour les nombres entiers ou réels. 


Fournir l'ensemble A$ ou A, 
le nombre d'éléments de l’ensemble, 
l'élément à rechercher. 

Sortie : R=—1 si l'élément se trouve dans l'ensemble, 0 
sinon. 


1°" exemple 


10 AECL)E"TOTO"s AS CH) EUAINME" 

20 RE CH) ENLES "3: A8 C4) = UGATEAUX" 

20 Ne: REM 4 elements dans A# 

40 BS="AIME":REM Chaine réecherchee 
O0 GOSUR 10000 

60 PRINT RIREM ReBS$ IN 4% 

70 END 


1°" programme 


LOGO 
10001 
LOC 
LOOQE 
10004 
1000 
LOOQ& 
10007 


b 


RS 
X FONCTION IN CVERSTON CHAINE) * 
* % 
NC NOR ONCE KE NE CR MCE ME ME HE ME NOMME CE COCO CE OK 


x 

4 

Entrées s A$g:Ensemble de chaines *% 

NeEND d'elements de À  * 

are # 
1Q00 # 
19010 # 


10011 


x 

* EteChaine à Comparer 

*X Sortie s K E# IN À% 

T 


AO AE AEONOK AE REKONEM EE CHER MEN MEME ME NCE ME AE AC HE MAC 


DR I=i TON 
IF EB#cA#(I) THEN R=-1 
NEXT I 


RETUEN 


Pre fi 
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2° programme 


NOM AO AE CEE HONOR GECE ME ENCORE ACC 
y * 
FCNCTION IN (VERSION NUMERTOLESX % 

4 


ACHONE AONC ME GE ME EME NO HOMO EH NC HEC CHENE 


# 


MR OHORONCR ARENA OR HOME MO MONO EN KM EME 


Analyse du programme 


Ligne 10020 : Valeur par défaut du résultat. 
Lignes 10030 à 10060 _ : Fonction IN. 
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Chapitre | Le générateur 


sonore 


QU'EST-CE QU'UN SON ? 


Pour répondre à cette question, faisons un parallèle simple : un caillou 
jeté dans une mare produit une onde qui a pour centre le point d'impact du 
caillou et qui s'en éloigne à vitesse constante. De même, un corps sonore 
qui a subi un choc émet un mouvement de vibration, ou d'ondulation. 


L'air qui entoure ce corps participe au mouvement, et forme autour de lui 
des ondes qui s'éloignent du corps à vitesse constante et qui parviennent 
à l'oreille. 


Les sons perceptibles ont une fréquence de vibration comprise entre 16 
et 15000 périodes/Sec (ou Hertz). On parlera d'infra-son pour une fré- 
quence inférieure à 16 Hz (Hertz), et d’ultra-son pour une fréquence supé- 
rieure à 15000 Hz. 


LE SYNTHÉTISEUR DE SON DE L'AMSTRAD 


L’'Amstrad possède un synthétiseur de son intégré (référencé AY 3-8912). 


Le synthétiseur sonore comporte trois voies indépendantes, entièrement 
programmables. Ainsi : 
- la fréquence, 
- la forme de l'onde (carrée, triangulaire, dent de scie ou bruit), 
- l'enveloppe (attaque, décroissance, stabilisation, extinction), 
- la durée du son, 


d'un son quelconque sont programmables. 
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L'instruction de base pour activer le générateur sonore est l'instruction 
SOUND C,P,D,V,EV,ET,NP avec : 


C = N° de canal (1.255). 

P = Période du signal (0..4095). 

D = Durée du signal (—-32768 ..32767). 
V = Volume (0.15). 

EV = Enveloppe de volume (0..15). 

ET = Enveloppe de ton (0..15). 

NP = Période de bruit (0..4095). 


Pour produire une note n'ayant aucune sonorité particulière, on pourra 
se contenter de l'ordre SOUND C,P,D:; et de l’ordre SOUND 1,P,D si la note 
utilise un seul canal. 


Le programme suivant montre comment activer une note en donnant sa 
période et sa durée. Ce programme fondamental, quoique très simple, ser- 
vira par la suite. 


Exemple 


10 CLS: FRINT'SON ELEMENTATRE" : FRINT 


20 INFEUT'Feriode"sF 

EO INFUT'Duree  "5D 

40 GOSUEB 10000 

0 GOT 10 

Programme 

LOOOO REM  4kMMek HO AC KOMCCHROE ONCHCK NOK KE CHOC CRM SOC CE MC AC CK UC 
REM X * 


* SON ELEMENTAIRE * 
*% * 
ACCRO ACC HOK HO HCNCHNCRGOOKE NC OK RON ORCH CCE CK 
* * 
*X Entree 2: FsPFeriode de la note * 
* DeDuree de la note X 
10008 REM * * 
10009 EM KA X OO OHOCOK OK OK OOHOKOHOHOMOE NOROKOKOHEOKOHOK MONO OKON K 
10010 : 
10020 SOUND 1,F,D 


10020 à 
10040 RETURN 


Analyse du programme 
Ligne 10020  : Activation de l’ordre SOUND. 


LE GÉNÉRATEUR SONORE 73 


MÉTRONOME 


Cet appareil, bien connu des musiciens, bat la mesure, et aide le débu- 
tant à suivre le rythme d’une partition de musique. Un métronome est gra- 
dué en battements/minute. Ainsi, s’il est positionné sur 60, il produira 60 
battements par minute. L'ordre SOUND possède un argument <Durée>. 
Aussi, il est très facile de réaliser l'équivalent d'un métronome mécanique 
à peu de frais. 


Programme 


1000 KREM XX ONOKONOE KO OKON OKOKOKOKOKOKOKOKOK NOK KO NOK ON KXK 
x 
1910 REM * 
*X 
1920 REM * METRKRONDOME 

k 

1970 REM x* 

* 

1040 REM XX KO KOKOKOKOKOK MOKONOKOEOKOEOEOKOK OK OKOKOKOK OKON OO CEE 
* 


1090 5: 


1060 CLS: PRINT" METRONDME ‘ : LOCATE 
8,10 


10970 INFUT'Tempo (10.,.300)"3:7T 

1980 FRINT 

1090 FRINT'"'Taper sur ENTER pour lancer le Metro 
nome!" 

1100 ASSINEEVS:IF A$="" THEN 1100 

1110 s 

1120 SOUND 1,2000,10,7 

1150 SOUND 1,0, (60/T)K100-10 

1140 GOTO 1120 


Analyse du programme 


Ligne 1070 : Entrée du Tempo. 

Lignes 1090 à 1100  : Activation du métronome. 
Ligne 1120 : Production d'un battement. 
Ligne 1130 : Silence. 

GAMME CHROMATIQUE 


Pour vous faire une idée de l'étendue des fréquences du synthétiseur 
sonore, voici un programme qui joue la gamme chromatique sur 8 octaves. 
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Programme 


10 REM Gamme sur UE VOLXx 
451 n“ 


CLS: FRINT "Gamme Chromati ques PATINT 
DeiGo Duree de La note 
FOR Ieû TO SÈ 
IF IN SABdel/A1R THEN Jeg+is FRINTOOCE ave" 
READ F 
Ie GOSUER 10000 "éctivation de La note 
bi NEXT I 
70: 
0 END 
DCS FEMME OK OO AK KO AE HORREUR AU KE KE A 
& X 
100 


on 2 


Ce PR DR EE RE 


8, 2336 
150 
4, 267, 2 
140 DATE 
JA, 127 

150 DATA LLS, TI, 106, 100,95, 609,84, O0, 7 71e 67 & 
160 DATA 60,56, 5: , 
170 DATA 250,20, 27 ls 20 
10000 REM XKXHXXXXAX ACH OK K 


101, 190,179, 16%, 159, 140, 14 


EC AE CC K 


XX 


REF 4 SON ELEMENTÉIRE 


REM  % 

x 

LOOCA RE CAO HOUR OKOK UCKOKOKON OKON HONOR NE ACER CN KE 
FMEM x 


REM # Entrée 2 FeFeriode de La note 


10007 KEM % Debur ei de La note 

x 

16008 KEM % 

*X 

RE M OK HROKOK KO CE OKON CE CE ON MORE EE ONE HUE OK NOK EEE AK KM A 


SOUND 1,F,D 
APE LOUIiTE 
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Analyse du programme 

Lignes 10 à 20 : Initialisation. 

Lignes 35 à 60 : Activation d'une note. 

Lignes 100 à 170 : DATA correspondant aux fréquences des notes 
à jouer. 


Lignes 10000 à 10040  : Ordre SOUND. 


CPC-PIANO 


Vous jouez du piano ? Non ! Alors il est temps de vous y mettre. Ce 
programme simule le clavier d'un piano. Les touches du clavier reprennent 
la disposition des tons et 1/2 tons d’un clavier de piano. 


Les touches 1 à 8 sélectionnent les octaves, et la touche 0 arrête le 
programme. Musiciens, à vos claviers... 


Programme 


10 REM CFC-pianc 

11 : 

F0 GOSUR 1000 *Initialisation 
36 GOSUR 2000 °Fiano 


40 : 

30 END 

db REM XX KO KO OK OK OHEOKOKOKOK OK KOKOKOKKK OK OKOKKOKOHCOKOKOKHCOKEOKCCHCK 
X 

1900 REM Initialisation des notes 


1010 : 
1020 DIM T(96) 
1020 FOR Izi TO $6 
1040 REBË TT) 

1090 NEXT I 

1060 

1070 DATA 

12408, 2273 à 2025 
1080 DATA 1911,1804,170%,1607,1517,147%,1251,1% 
7h, 1204, 1126, 1075, 101: 

1090 DATA 956,007, 851,904,7568,716,86876, 629, 802,5 
B5,S7T6, 56 

1100 DATA 478, 481,424, 402,279, 250,728, 219,501, 
84,268, 282 
1 7 Li LORS ñ 


12408, 2914, 7074,286T, 705,25 


Jr Ac 
5,201 


2,225, 190,179,169,159,150, 1 


l 


9,11%,106,100,95,899,84,80,75,71,67, 


ê. 
1130 DATA 60,56,53,50,47,45,42,40,58,36,24,22 
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1140 DATA 30,26,27,25,24,22,21,20,19,18,17,16 
1150 : 
1160 DIM G(?6) 


1170 FOR Iei TO 24 
1180 RERD G(I) 
1190 NEXT I 


1200 : 


1210 DATA 1,0:0,544:6,0, 1010518, 13: 001 060,070, 


5. a ES 
Fa LE ass DSP D 


47 = 
1270 RETURN 

1240 REM XX OX OKNREOHOKCOK OH HOKOKOKOKOKOMEOHEOKE ME HE OK KO OK OK CN EC K 
* 

2000 REM CFC-5ianc 

BOi0 

2011 CLS: PFRINT'OFC-piano.,.." 

2€ AS=INEEYS 

IF ASEUU THEN 020 * Boucle d'attente 

20950 AzASC (AH) 

2055 IF A=48 THEN 2140 

2060 IF ÀA:56 THEN 2080 

2070 OCT=A-49 Choix de l'octave 

2090 IF 4:90 OK ASS THEN 2020 * Touche inconnue 
2090 : 

2100 IF G(A-64)<25%0 THEN SOUND 1,T(G(4-64) +0DCTXx1 
2),20,5 

2110 : 

2120 GOTO 2020 

2130: 


2140 RETURN 


Analyse du programme 


Lignes 10 à 50 : Programme principal. 
Lignes 1000 à 1230  : Lecture des DATA correspondant aux notes pos- 
sibles. 


Lignes 2000 à 2140  : Saisie clavier et activation de l’ordre SOUND. 


ÉDITEUR MUSICAL 


Si vous possédez des partitions de musique, ou si vous êtes à même 
d'en écrire, ce programme peut s'avérer très intéressant. Après quelques 
efforts pour entrer toutes les notes sur une, deux ou trois voix, vous pouvez 
écouter le morceau ainsi reconstitué. || a même été prévu une commande 
pour immortaliser vos œuvres sur fichier séquentiel. 
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Programme 


10 REM XX 4 KOKKOKK NOK OK MONCKKOKONOMOK KOKOHOKOKOKOKCKOKONOKOKOK NOKOKHCNCK 
* 

20 RENM *% 

*X 

F0 REM *X EDITEUR PE LOS AE ER E 

X 

40 REM *% 

* 

DO REM XX OK HEOK HOK HORMONE OK OKOKOKOKOHEK OK OKOKOHE OKON SCC MOROCCO 
x 

6 : 

70 GOSUB 5006 ‘Initialisation 

80 GOSUR 1000 ‘Menu principal 

90 : 

100 END 

210 RENM me de eo ce vo om ae me ae ce om ae me me ea ee one ose 

300 REM Initialisaton 

510 : 

J20 DIM NNCEOO, 7), DUCZO0,E),T1 (96) 

DEOQ 3 

940 FOR I=i TO 96 

990 READ Ti(I) 

défi NEXT I 

570 DATA 2822, 76068,72405,2214,2074, 200607, 705,285 
1,2408,2275,2145,2025 

290 DATA 1911,1804,170%,1607,1517,1452, 1291, 127 
b,1204,1176,1077, 1012 

90 DATA 956,902,851,804,758,716, 676, 8268, 60, Sé 
8,5:6,506 

600 DATA 478, 451,426, 402,270, 280,258,719,201,20 
4,2880,255 

610 DÊTA 229,225, 215,201,190,179,169,159, 150,14 
2,134,127 

820 DATA 119,115,106,100,95,89,84,90,75,71,67,6 
BED DATA 680,586, 33, 950, 47, 49, 42, 40,568, T6, 34,52 

64 DATA 50,28,27,29,24,22,21,20,19,19,17,1é6 

6850 3: 

66 RETURN 

1000 REM Menu principal 

1010 : 

CLS: FRINTEDITEUR MUSICAL": FRINT 
FRINT'"'1)Modification du volume" 
FRINT 2) Ecriture du morceau" 

1940 FRINT'H) Execution du morceau" 

1045 FRINT"4) Sauvegarde E7" 

1050 PRINT: INFUT'Votre choix":C 

1060 IF C4 OK C£i THEN 1000 Fu 
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1970 : 

1990 ON C GOSUR 10000, 11000, 12000, 13000 

1090 2 | | | 

1190 GOTO 1000 

1110 : 

Î Î 2 © FK E M ES 0 nn Co RO ES SES LÉ etes RE OR ES MR RS GES Core DR 286 ne RS  RR S S 

10000 REM Modification du volume sonore 

10001 : 

10010 CLS:FRINT'Modification du volume sonore"s 
FRINT 

10020 INFUT'"'Volume (0.,7)"34V 

1900E0 

10040 RETURN 

10050 RENM ace ce ce ce one ous one ms ne cs ne mes an tn ee ns ae me 

11000 REM Ecriture du morceau 

11010 : 

11020 CLS:FRINT'Eciture du morceau": FRINT 
11070 FRINT'Notes : de DO1 à SIB":FRINT 

11040 FRINT'"'Duree : 1-Croche 2?-Noire" 

11050 FRINT" 5-Blanche 4-KRonde" 

11080 FRINT: INFUT'Voie (1,3,3 ou 4-Fin)"; VX 
11070 IF VX:4 OK VXS1 THEN FRINT CHR#&(7):GOTO 1 
1060 

119080 IF VX=4 THEN RETURN 

11090 : 

11100 FRINT: INFUT'Note ": NS 

11119 GOSUER 20000 ‘ Decodage 

11120 IF Hezi THEN FRINT CHRS#&(7):GOT0 11100 
11150 : 

11140 FRINT:s INPUT '"'Duree"z:D 

11150 IF D:4 OK D£1 THEN FRINT CHARS(7): GOTO 111 
40 

11160 : 

11170 FRINT: INFUT'"Temps'"3T 

11180 IF T:300 CR T£S1 THEN FRINT CHR&$(7):GOTD 1 
1170 

11190: 

11200 NNCT, VX) =NO: DU(T, VX) =DX?S ‘Memorisation 


11210 

11270 GOTO 11000 

117230 

LIBAN RENM 

12000 REM Execution du morceau 

12010 : 

12020 I=û 

12050 I=l+i 

12040 IF NNCI,1)=0 AND NNCT,2)=0 AND NNCI,3i=0 
THEN 12150 
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12050 
»,V 

12060 
»),V 

12070 
ad 

12080 
12090 
12100 
12110 
12120 
12150 


12140 


LE0O0 


15010 


13050 
12080 
15070 

THEN 
123080 
15060 
13100 
12110 
15120 
17125 
13130 
131255 
12140 
15145 
13150 
13160 
15170 
13180 
20010 
20015 
2OG1é 


OO 


BOCEO 
20040 
20080 
20060 
BONT7O 
200E0 
200090 


20100 


IF DU(I,1)2:0 THEN SOUND i,NN(I,1),DU(I,1 


IF DUCI,2)25O THEN SOUND Z,NNII,2),DU(I,E 


IF DU(I.2%)€%0 THEN SOUND 4,NN(I,3),DU(I,3 


ES 


SOUND 1,0,20:SOUND %,0,20:SOUND 4,0 
GOTO 12070 

RETURN 

REM etes 0000 ne mmee come me c000 nee mme nome me ce out nee one eue te one one one eee oo me ot cb ones me eos 


CLS: FRINT'Gauvegarde K7"s PRINT 
INFUT'Nom de la sauvegarde":N# 
. = 

I=l+i 


IF NNCI,1)£50 OR NNCI,2)25%0 OR NNCT,3)2 50 


157060 


OFENOUT N$ 
FRINT K#9,1 ‘Nombre de donnees 
FOR J=1 TO I 
FRINT #9,NN(J, 1) 
FRINT #9,DU(J,1) 
FRINT H#9,NN(J,2) 
FRINT #9,DU(J,2) 
FRINT HO,NN(J, 7) 
PRINT #9,DU(J,.:) 
NEXT J 
CLOSEOUT 
RETURN 
REM Decodage de la note tapee 


B=Q:C=0 *Initialisation 


LS=LEFTS(N#,2) "Note 

R=ASC RIGHTS (NS, 1))-48 "Octave 

IF R£1 OK R°:8 THEN B=l:GOTO 20170 
IF Lé="DO" THEN Czi 
IF Lé="RE" THEN CES 
IF Lé&="MI" THEN C 
IF Lé="FA" THEN C= 
IF L$="60" THEN C 
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20110 IF Lé="LA" THEN C=ic 

20120 IF Lé="SI" THEN Ci 

20120 IF C=0o THEN H=1:G0OTO 20170 

20135 FOR I=i TO LEN(N#) 

20156 IF MIDS(NS,I,1)="#" THEN CEC+i1 
20137 NEXT I 

20140 : 

20180 DeC+(R-1)*X12:NO=TI(D) Note 
20160 : 

20170 RETURN 


Analyse du programme 


Lignes 10 à 100 : Programme principal. 
Lignes 500 à 660 : Initialisation du programme. 
Lignes 1000 à 1110 : Menu principal. 


Lignes 10000 à 10040  : Modification du volume sonore. 

Lignes 11000 à 11230  : Ecriture du morceau. 

Lignes 12000 à 12130  : Exécution du morceau. 

Lignes 13000 à 13180 : Sauvegarde cassette (CPC 464) ou disquette 
(CPC 664). 

Lignes 20000 à 20170 : Décodage de la note demandée. 


Remarque : Avant de demander l'exécution du morceau, il est nécessaire 
d'initialiser le volume sonore... 


LECTURE DE FICHIERS MUSICAUX 


Ce programme lit les morceaux stockés sur cassette et les exécute au- 
tant de fois que vous le désirez jusqu'à l'appui sur la touche BREAK. 


Programme 


1000 REM XXKOK OK KOKOKOHOK NOHOKKOKOMUOHOKKOHOHHCKCKOKOHOH MORE KOKHOHCHCKX 
X 

1010 REM X 

x 

1020 REM * LECTURE DE FICHIERS MUSICAUX 

*X 

1050 REM X 

x 
1040 REM XX XX OX KO UEOKOHOKOKKOK HEOK KO HCOKOMK HOHCKHCOKOMCOK HER HCOK HO AK 
x 

1050 

1060 CLS:FRINT" LECTURE DE FICHIERS MUSICAU 
X':LOCATE 1,19 

1070 INFUT'Nom du fichier"sNs 
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1080 : 
1990 OFENIN NS$ 
1100 INPUT #9,NEB Nombre de donnees 
1105 DIM NNCNEB, 2), DU (NE, %) 
1110 
1120 FOR Ii TO NE 
1120 INFUT H9,NNCI, 15 
1140 INPUT #9, DLUCT, 1) 
1150 INFUT #O,NNCTI, 20 
1160 INPUT #9, DUCT, 2) 
1179 INFUT HS ,NNCI, 3) 
1180 INPUT HS, DU CT, 3) 
1190 NEXT I 
11955 CLOSEIN 
LEO 
1210 CLS:FEINT "'Sppuvez sur une touche pour lanc 
er" 
1220 FRINT'le morceau." 
1250 3: 
1240 ASSINÉEVS:IF 86="" THEN 1240 
1250 3: 
1260 KREM Execution du morceau 
1270 : 
280 I=0 
1290 Izl+l 
1500 IF NNCT, 1520 AND NNET,2)=0 AND NNCI, Geo T 
HEN 1380 7 Fin du morceau 
1310 IF DUT, 15. THEN SOUND I ,NNCT, 13, DUCT, 1) 
22 IF DUT, 4): THEN SOUND Z,NNCT, 22, DU CI, 2) 
ù IF DUCT, HE 50 THEN SOUND A, NA CT), DU CT, 30) 
13245 SOUND 1,0,20: SOUND 2,0, Os SOUND 4,0,20 Si 
lence 
LESS à 
1285 GOT 1290 * Frochaine note 
1270 


1380 GOTO 1216 ° Fin du morceau 


Analyse du programme 


Lignes 1000 à 1070  :Initialisation. 
Lignes 1090 à 1195  : Lecture du fichier musical. 
Lignes 1260 à 1380  : Exécution du morceau. 


MORCEAUX SUR UNE ET DEUX VOIX 


La technique consiste à mettre les notes à jouer et les durées associées 
en DATA. Dans la suite, nous avons pris une durée de 40 pour une noire, 
80 pour une blanche et 20 pour une croche. 
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Morceaux sur une voix 


La première DATA donne le nombre de paires Note/Durée à lire. Une 
boucle de lecture Note/Durée active l'ordre SOUND 1,NO.DU. 


Programme 


10000 REM XX OK OK OO OH OKCHEONEOOKONE OK MO AC AOK AO M AC EN EH XX 
XX 

10010 KREM X 

* 

10070 REM X MORCE AL SUR UNE VOTX 

x 

1000 KREM * 

* 

LOMA40 REM KO OK KEOK OK MO OKON ME CHE EEK KE KE HEOMEOME HE CNE EH 
x * 

19080 3 

10060 READ NB ‘Nombre de donnees 

10070 FOK I=i TO NE 

10080 READ NO, DU 

10090 IF NO£5O THEN SOUND 1, NO, DU 

10100 SOUND 1,0,1 ‘Silence 

1ü110 NEXT I 

1O1Z0 à 

LO1EO DATA 14,1197,40,106, 40, 95, 40, 119, 40, 119, 40 
.106,40,965,40, 119,40 

10140 DATA 95, 40, 89,40, 80,80, 95, 40, 09, 40,00, 50 
10150 


10160 END 
Analyse du programme 
Ligne 10060 : Lecture du nombre de notes. 


Lignes 10070 à 10110 : Boucle de lecture. 
Lignes 10130 à 10140  : Données Note/Durée. 


Morceaux sur deux voix 


La technique employée est la même que pour “Morceaux sur une voix”. 
Cependant, les données contiennent en plus l'information CANAL (CA) qui 
va activer l’ordre SOUND CA,NO,DU. 
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Programme 


LOOO0 REMAKE KR MO HE HO EE EC HE CHE EC ON 
#* 

10010 REM x 

*X 
10070 REM x MORCEAU SUR DEUX VOIX 
10020 REM x 

X 

LOCO  REM KR ONOKOHOKOHHEO MO OO EE OO EEE K 
k * 

10060 

10060 READ NE ‘Nombre de donnees 

10070 FOR I=i TO NE 

100980  READ CA, NN, DU 

10066  GSOUND CA, NN, DU 

OIGS . ‘SOUNE ErO: TI SOUND. M0: 1 “éfiénée 

10110 NEXT I pal 

10120 

10120 DATA 22,1,119,40,1,106,40,1,95,40,1,119.4 
; “1979540 
10140 DATA 1,119,40,1,106,40,1,95,40,1,119,40 
10150 DATA 17,95,40,10,119,40,1,89,40,2, 106,40, 
1,80,680,2,95,40,2,119,40 | ni 
10160 DATA 1,95,40,2,119,40,1,99,40,2,106,40,1, 


90,80,2,95,40,2,119,40 
Analyse du programme 
Ligne 10060 : Lecture du nombre de notes. 


Lignes 10070 à 10110  : Boucle de lecture. 
Lignes 10130 à 10160  : Données Canal/Note/Durée. 


PROGRAMMATION DE MORCEAUX DE MUSIQUE 


Ce programme reprend les bases données dans “Morceaux sur une 
voix”. Trois airs célèbres sont stockés en DATA sous la forme : 


<Nb de DATA> ,<Durée>,<Période>, 
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84 


Programme 


+ 
ù 


BOF CEAUS 


fi 
ï 


Fe] 
a 


Le 


Fr 
14 


anima ti o 


Len 


p- 
‘ 


M Frog 


RE 


LE 0 


INT 


3 
\ 


din 


0 


te] 


FF 


À 

Li 
ci 

pd Fr. 
. ge 
22 D 


MENT 
Ft 
1 


eme 
Schube 


CS 

Lea 

Q 
7 


4 — 
Ge 
LI 


1,80,1,69, 1, 


à 
“i 


DAT 
DAT 


[a 


al 
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395 DATA 1,80 
QE 


TA 


Un 


rs 

40% DATA 1 

410 DATE 1, 
Les 


ee PR 
1,119,1,95, 


C5 pe re pe Que 


Pre QE 


Ü 


450 BEM pee CS AS ER Le en end 
AD REM Classique 
AO DEEE 7e 106414 80,1,84,2,80,2,106,2,71,2,1 
US, 2 ste a 0, 2, 60,2, 80 
475 DATA 2,53,2,80, 2,50 424 50 
4980 DATA 1,84,1,90,1,71,1,84,2,106,1,5%,1,60,1, 
Bin Lu 60 das da GE 
Rae, DATA 1180,1,71,1:6%,1,90,2,89,1,100,1,106,7 
Du ds 6741471, 1,67,1,60Q 

A 0 7 Le be 0e Les 80, berge LOGS LPO E.S A 
,119)2,106; 1,67: 1, 71,1,80 
0 DATA 1,71:1467,1,80,1, 100% 1,80, 1,90, 1, 1062 
1106,1,119,1,124,2,119,2, 100 
DE DATA 2,106,7,80,1,64,1,80, 1.71,1,84,2,84,1, 
80,1,04,5,80 
LOOGEC REPT CR OAOK HOME HR HO KR HO AC HO CAC ACC ONE KE AE MK MK AC XXE XX 
X* 
1oC 
X 
LOOOZ REM 3 


Ed 


IREM X 


SOR ELEMENTATRE 


RER 


PEL ACHOKOMOKONEOKOHE OH HE KCOKCHE OK EME OK OK KE OK ONE 


X Entrées 2 PFeFerjiode de la note 


* DeDuree de La note 


SOUND LP 


y 44 
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Analyse du programme 


Lignes 10 à 80 : Présentation. 

Lignes 100 à 150 : Initialisation en fonction du morceau choisi. 
Ligne 170 : Lecture du nombre de notes. 

Lignes 180 à 210 : Boucle de lecture. 

Lignes 300 à 520 : DATA Durée/Période. 


Lignes 10000 à 10040  : SOUND. 


EFFETS SONORES, BRUITS D'ANIMATION 
SPECIFIQUES 


Voici quelques programmes, généralement très courts, qui simulent 
divers bruits et que vous pourrez incorporer très simplement dans vos pro- 
grammes. 


Cheval au galop 


Ce programme utilise le paramètre “Période de bruit” de la commande 
SOUND pour reproduire le bruit que fait un cheval au galop. Si le son produit 
ne vous convient pas, modifiez la valeur de la “Période de bruit” en lignes 
10, 30 et 40, qui est fixée à 25 dans le programme. 


Remarque : Les paramètres “Enveloppe de volume” et “Enveloppe de 
ton” sont présents mais sans effet, puisqu'aucune commande ENV ou ENT 
n'a été faite au préalable. 


nn FEM Cheval au calcp 
À. # 

ed 

16 SOUNDS GO LOS, LS LS 


is NEXT 


“5 GOTO 10 


Loco 


Pour les amateurs de circuits ferroviaires, voici un programme qui repro- 
duit le son d’une locomotive à vapeur. Ici encore, le paramètre “Période de 
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bruit” de la commande SOUND est utilisé, mais avec une période de ton et 
une durée différentes de celles du programme “Cheval au galop”. 


10 REM Loco 
LA 53 


Vus 
LT 


49 GOT EQ 


Passage de bolide 


Dans ce programme, nous utilisons les commandes de définition d'en- 
veloppe de volume (ENV) et d'enveloppe de ton (ENT). 


Comme son nom l'indique, l'enveloppe de volume va moduler la puis- 
sance sonore parvenant sur le haut-parleur en fonction du temps. 


Comme son nom ne l'indique pas forcément, l'enveloppe de ton va mo- 
duler la fréquence de la note dans le temps. 


Pour le passage d'un bolide, le son croît, se stablise puis décroît ; la 
fréquence décroît lentement, puis croît rapidement, ce qui correspond aux 
schémas suivants : 


Volume 


Fréquence 


—75 
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Friture sur la ligne 


Ce programme reproduit les parasites que l'on entend (parfois !) sur les 
lignes téléphoniques. Pour ce faire, une enveloppe de volume est définie 
en forme de triangle de courte durée. 


Volume 


LO REM Friture 


2 ENV L,40,7,: 


Alarme sur le navire 


Ici encore, l'enveloppe de volume est redéfinie pour reproduire le son qui 
précède l'immersion des sous-marins en cas de danger. 


Volume 


10 REM Alarme gur 1e navire 
db 

BU NME As rate LOL er 
FO SOUND 1,2#00,-10,0, 1 


Boucles sur SOUND 


Ce programme montre comment produire des sons très différents en 
faisant varier rapidement la période de ton de l’ordre SOUND. Quatre effets 
sonores différents s'enchaînent automatiquement. 
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CLS: PRINT "Avion 
FCR Ie +0 
OUND 
NEXT I 


béni le 


TR re PL 
nique 
STEP & 
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| Les modes 
Chapitre graphiques 
haute 
résolution 


Les micro-ordinateurs CPC 464 et CPC 664 présentent un grand avan- 
tage par rapport aux autres micro-ordinateurs familiaux. Cet avantage se 
situe au niveau du graphisme haute résolution. 


Si la plupart des micro-ordinateurs font la différence entre écran gra- 
phique et écran texte, Amstrad a su concilier les deux. Ainsi, il est très facile 
de mélanger texte et graphiques haute résolution sur le même écran. 


Trois modes (haute résolution et texte) sont possibles : 


D MODE 0 : 160 x 200 pixels, 20 colonnes x 25 lignes, 16 couleurs. 
D MODE 1 : 320 * 200 pixels, 40 colonnes x 25 lignes, 4 couleurs. 
D MODE 2 : 640 x 200 pixels, 80 colonnes x 25 lignes, 2 couleurs. 


ALLUMAGE D'UN POINT SUR L'ÉCRAN 


L'instruction PLOT X,Y,E 
avec 


X = coordonnée en X du point à allumer (0..639), 

YŸ = coordonnée en Y du point à allumer (0..399), 
et 

E = couleur d'encre, 


permet d'allumer un point élémentaire (ou pixel) sur l'écran. 
Nous allons mettre en œuvre l'allumage d'un pixel sur deux applications 
décrites ci-après : 


- tracé de courbes en haute résolution ; 
- figures de Moivre. 
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Tracé de courbes en haute résolution 


Tracé de courbes Y=F(x) 


Le lycéen de second cycle est souvent confronté au problème suivant : 
étudier puis représenter l'évolution d'une courbe monovariable entre deux 
bornes fixes. 


Le programme décrit ici permet de donner le tracé d'une courbe mono- 
variable quelconque de type Y = F{(x) entre deux bornes fixées par l'utili- 
sateur. 


Si ce programme ne réduit pas à néant l'étude préalable de la fonction 
(en particulier l'étude des points singuliers), il permet cependant de confir- 
mer ou d'infirmer l'allure générale de la courbe à étudier. 


Le programme est très simple. Il se décompose en trois phases : 


- saisie de l'équation, 
- Saisie du domaine de définition, 
- passage en mode haute résolution et tracé. 


Programme 


10 REM XX XX ON NOUNOU ONCE IOUX 
11 REM * X 


12 REM * TRACE DE COURBES D°'EQUATION Y=F(X)  * 
13 REM * * 
14 REM XX X XX NONOKOKONONOKOKONHONONNONNOK NON NON AONAONCHCNOKONC NAN ACICE 
15 : 

20 GOSUB 1000 : REM Saisie de l’equation 

30 STOP 

40 GOSUB 2000 : REM Saisie du domaine 

SO GOSUB 23000 : REM Trace 

60 : 

70 END 

80 REM XX XX NN OKON OR HONONOON KONONOKNCNCAONC A OKOIONONO NA II ACX 
1900 REM Saisie de l’equation 

1010 : 

1020 CLS 

1030 PFRINT'"'Tapez 2060 DEF FNA(X)=" 

1040 PRINT'"suivi de l’equation a etudier." 
1050 PRINT:PRINT'"Tapez ensuite RUN 40" 

1060 : 

1070 RETURN 

1080 REM XX XX NON ONOKOK AK NONONOKOKONONONKE ONE NOK KE ON NOR ON ACICK 
2000 REM Saisie du domaine de definition 

2010 : 

2020 CLS 

2050 FRINT'Entrez le domaine d'etude :" 

2040 PRINT:INFUT"'X min"; X1 

2050 PRINT: INPUT"'X max"; X2 
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2060 
2070 
2080 
2090 
3000 
3010 
3020 
3030 
3039 
3040 
5050 
3060 
3070 
:080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
5160 
3170 
3180 
3190 


DEF FNA(X)=SIN(X) 


RETURN 
REM XX XOK OKON ON NOK KOON AA IOK NON KOKONO KR AONONONKOKON NOK NON X 
REM Trace de la courbe 


REM Calcul de l’echelle en Y 


Mi=-)1E+33: M2=1E+3T 
FOR X=X1 TO X2 STEF (X2-X1)/100 
A=FNA (CX) 
IF A>M1i THEN M1=A 
IF A£M2 THEN M2=A 
NEXT X 
EX=640/{X2-X1):EY=399/ (M1i-M2) 
FX=(X2-X1)/100 


REM Trace 


CLG:REM Effacement d'ecran 
FOR X=X1 TO X2 STEP FX 

FLOT (X-X1)XEX, (FNA(X)-M2) XEY 
NEXT X 


RETURN 


Analyse du programme 


Lignes 20 à 70 : Programme principal. 
Lignes 1000 à 1070 : Saisie de l'équation. 
Lignes 2000 à 2080 : Saisie du domaine d'étude. 
Ligne 2060 : Définition de la fonction à étudier. 


Lignes 3000 à 3100 : Calcul d'échelle. 
Lignes 3120 à 3190 : Tracé de la courbe. 


Tracé de 
courbes 
Saisie de 
l'équation 
Saisie du domaine 
de définition 
Tracé de la 
courbe 
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Tracé de courbes Y(t), X(t) 


Ce programme peut être employé de deux façons différentes : 


Comme aide mathématique (représentation instantanée d'une courbe 
par l'entrée de ses équations). 
0 Comme générateur de motifs mathématiques graphiques. 


La première voie, si elle n'évite pas à l'étudiant de fastidieuses re- 
cherches de tangentes, points d'inflexion et assymptote nécessaires à tout 
“bon” tracé de courbes, permet cependant de concrétiser rapidement une 
impression plus ou moins juste sur l'allure de la courbe à étudier. 


La deuxième voie permet d'obtenir d'assez jolis dessins par la seule 
entrée d'équations et du domaine d'étude. 


Programme 

10 REM XX OX OHOK OK HOMO OKOK OKON OCOHCOHOOKOKOKOKC KE DC OC AC MO COCNOIONCNCX 
*X 

11 REM * 

x 
17 REM *X TRACE DE COURBES D'EQUATION Y (Et), X(t) 
* 

17 REM * 

X 

14 REM  4K4Ok NOK OK KM HOME OHCOHOKCOEOK OKON OKON COCO CC OC HOOCX 
x 
19 : | 

20 GOSUR 1000 : RENM Saisie des equations 

30 STOF | 

40 GOSUR 2000 : REM Saisie du domaine 

50 GOSUB 2000 : REM Trace 

El 5: 

70 END 

SO REM Xe k ook CHOCO HCOKEHC OK KCOKCOKOKE OK OKCOKCOK KO CHOC 
1000 REM Saisie des equations 

1010 : 

1020 CLS 

1050 FRINT' Tapez 2060 DEF FNAC) =" 

10751 FRINT'et 2061 DEF FNB(X)=" 

1040 FRINT'suivi des equations X(E),Y(t) a etud 
1 er LL | 

1060 PRINT: FRINT" "Tapez ensuite RUN 40° 

ioéi à 

1070 RETURN 

1080 REM KO CHOHEOUKOKOKOK OK OKOHEOH HOKOKOK MEME CE HE HN OKOOOHOHCKOKKCE HOMO 
# 
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2000 REM Saisie du domaine de definition 
POI ss 


à FRINT'Entrez le domaine d'etude :" 

eo PRINT: INPEUT'T mintasTi 

2080 FRINT3:INPEUTUF max!"3Te 

2660 DEF FN&CX)=SINCX) 

ZObi DEF FNR(X)=C0S8 (x) 

2070 

20890 RETURN 

2090 REM XGA MEOKOECKOK OK ONOKOKOMEOKOHCOHKOME CHOC OC OC OC HE KOKOKOKOKMOKCKOKCK 
*X 


000 KEM Trace de la courbe 

LO 3 
HO0 TFAS=CTE-TI) /ERO0 ‘Fas en abcisse 
ECHO 


E040 REM Fas enr X et en Ÿ 
FO6O ss 
5060 X1=1E+EEs Xem-1E+HEe VislE+ETs Vee-LE+SS 
2070 
3080 FOR TeTi T0 T2 STEF TFAS 
F00(0 A=FNACT): B=FNE (T) 
100 IF ASX1 THEN Xi=f: X2= 
3110 IF BEX2 THEN il 
3120 IF BEYI THEN Yi=sh:VYEeT 
F150 IF BYE THEN Y£=B:YA4=T 
F140 NEXT T 
3150 : 
160 XFAS=(XI1-X2) /640:YFAS=(YI-YE2) /599 
5170 3: 
7180 REM Trace 
5190 3: 
ren CLG:REM Effacment d'ecran 
219 FOR T=TIi TO T2 STEF TFAS 
3220 X=FNA(T) : Y=FNE (CT) 
RTE FLOT INT((1/XFAS)X(X1-X)),INT((C1/YFAS)X( 
Y—-Y2)) 
3240 NEXT T 
2250 3: 


3260 RETURN 
Analyse du programme 

Ce programme est très similaire au précédent. 
Lignes 20 à 70 : Programme principal. 
Lignes 1000 à 1070 : Saisie des équations. 


Lignes 2000 à 2080 : Saisie du domaine d'étude. 
Lignes 2060 et 2061 : Définition de la fonction à étudier. 
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Lignes 3000 à 3160 : Calcul d'échelle. 
Lignes 3180 à 3260 : Tracé de la courbe. 


Tracé de courbes Y(t), X{t) imbriquées 


L'intérêt mathématique de ce programme est très limité. Par contre, l'in- 
térêt graphique est certain. Il consiste à imbriquer N courbes Y{t), X(t) de 
même équation, ce qui a pour effet de donner une “profondeur” à la repré- 
sentation. 


Programme 


10 REM XOK OH HO OK CHOCO CO OK COKCOKCKCC KE KCKK AC HKOKCKCKCKCKCKCK EE 
x 
11 REM x 

* 

12 REM *X TRACE DE COURBES D'EGUATION YCE),X (CE) 


13 REM * 
14 REM XX OKOKOKOOK KO KCK NOK KO HOK HOMME HERO EE OK HOME 
*X 
die «5 

20 GOSUR 1000 : REM Saisie des equations 
50 STOF 
45 GOSUR 
30 GOSUE 
éfà : 

70 END 
90 REM XX OKOEOEOK OK KE KOKOK OKOKOKOHOKOKOHEOKOHCOEOK HONOR KO OKOKKOKONOK HE 
1000 REM Saisie des equations 

1010 2 

1020 CLS 

1050 PRINT" Tapez 2060 DEF FN OO0=° 

1051 FHRINT'et 20061 DEF FNR(X)=" 

1040 FRINT'euivi des equations X CE) ,YIE) a etud 
lier” 

10950 FRINT:FRINT"Tapez ensuite RUN 40" 

1060 : 

1070 RETURN 

1000 REM HE XK HO E KOKOKOK AOKOK CR AOKOE OO KO OMOK EEK EM RNENEEHXX 
2000 KREM Saisie du domaine de definition 
2010 : 

2020 CLS 


BOEO FRINT'Entrez le domaine d'etude 


: REM Saisie du domaine 
: KEM Trace 
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2040 PRINT: INFUTUT min':;Ti 

2090 FRINT: INPUTUT max"; Te 

20600 DEF FNACX)E=SINCX) 

2uôl DEF FNB(X)=COS (x) 

2065 FRINT: INEUT' Nombre de courbes imbriquees": 
NC 

2066 FRINT: INPUT" Nombre de points par courbe ": 
NF* 

2070 

2080 RETURN 

2090 REM GHONOHKEOK MON HOME OKOK MOUCHE MORE HO CRC EME KO KO ME CHEN X 
x 

21000 KEM Trace de la courbe 


TFAS= (TE-TI)/NE °Fas en abcisse 


5050 : 
2040 REM Fas en X et en Y 

3080 à 

2060 X1F1E+7Es XBe-1EHTEs Vis iEHETs Vie EHE 
5070 : 

3080 FOR T=Ti TO T2 STEF TFAS 

5090 A=FNA CT) XNC: E=FNE (CT) XNC 

3100 IF ASX1 THEN X1=A: XZ=T 

3110 IF A:X2 THEN X2=A:X4=T 

3120 IF HEYI THEN Yi=HsYE=T 

3150 IF BY? THEN Y2=B:YA4=T 

7140 NEXT T 

3150 : 

32160 XFAS=(X1-X2) /640:YFAS=(YI-Y2) /399 
3170 : 

7189 RENM Trace 

35190 : 

3200 CLG:REM Effacement d'ecran 

3205 FOR K=1 TO NC 

3210 FOR T=T1 TO T? STEF TFAS 

3220 X=FNA(T)XE: Y=FNE(TI XF 

SPE0 FLOT INT((CI1/XFAS)X(XI1-X)),INT((1/YFAS) 
k(Y-Y2)) 

3340 NEXT T 

3245 NEXT KE 


“RPAES f 


250 : 


3260 RETURN 
Analyse du programme 
Même découpage en modules que le programme précédent. 


Remarquez l'imbrication des courbes lignes 3200 à 3245 où K indique le 
numéro de la courbe tracée. 
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Figures de Moivre 
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Les figures obtenues par le glissement d’une droite sur deux courbes 
planes portent le nom de “figures de MOIVRE”. 


De très belles figures peuvent être obtenues sur les micro-ordinateurs 
graphiques, à moindre effort. 


Les programmes proposés ici se servent de l’ordre graphique DRAW. 


Sept figures sont proposées : 


MOIVRE 1: 
MOIVRE 2: 
MOIVRE 3 : 
MOIVRE 4 : 
MOIVRE 5 : 
MOIVRE 6 : 


MOIVRE 7 : 


les deux courbes planes sont deux droites d'angle 
90°. 

les deux courbes planes sont deux droites d'angle 
< 90°. 

composition de quatre figures du type 1. 
composition de quatre figures de type 1. 

autre composition de quatre figures de type 1. 
composition de deux figures de type 2 pour former 
un triangle. 

application de “MOIVRE 1” pour former le dessin 
d'un papillon. 


Organigramme des programmes 


Chacun des sept programmes possède une structure linéaire qui consiste 
en une ou plusieurs boucles décrivant le glissement de la droite. 


Programmes 


19 REM Moivre 1 


20 CLG 
30 FOR 10 TO 19 


40 Xi 


VE X1, Vis DRAW XD, YT 
FQ NEXT T 


Moivre 1 
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RE Moivre 


XL LS DRAN KE NE 


Moivre 2 


OO REM Moivre ZE 


1 
JA 


nn CLG Moivre 3 


20 FOR I1e0G TO 19 
40 ALES OQsNIETSO-ISXT 

ae) X2=E00+19X1:VE=190 

EC MOVE X1,Y1:DRAW XE,VE 
70 XA=TOGsYVITITXI 

80 : 


190 
X1,YI:DRAW XE,YE 
L1GG Q0:Y1E=Er60-IGXT 

110 (BREO0-19X1:YE2:190 
120 MOVE X1,Y1:DRAW X2,YE 
150 X1=500:Y1=1 7x] 

140 XP 


ET 


FOOG-19XI:YE=1090 
150 MOVE X1,Y1:DRAW X2,VE 
1&4Q NEXT IT 
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10 KEM Moivre 4 


20 CLEG 

50 FOR I=0 TO 10 

40 X1=200:Y1=280-19%1I 

ST KB=200+10%X1:Y2=190-19%XI 
40 MOVE X1,Y1:DRAW X2,YE 
70 X1=200:Y1=19%xI 

80 X2=200+19%k1:V2=190+19%1 
70 MOVE X1,Y1:DRAW X2,YE 
100  X1=%00:Y1=280-19%XI 

110  XB=200-10%1:VP=190-19%I 
120 MOVE X1,Y1:DRAW XE,YE 
120  Ki=%O00:YIi=19xI 
XP#700-—10%X 1: Y2=190+19%1 
X1,Y1:DRAW X2,VY? 


Moivre 4 
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LO RE Moivre © 

1h ‘à 

eo  CLG 

FOR IeQ TO 10 

Ale ISOHEGXT: VIE 
3 10: ù 
MOVE 
XL 


# 


XL, VI: DREN KE, VA 


L'A) VII 
À a y VE 


30 

DFA 
XF ISOHIEXTI: 
Xe 1 0 YS 
MOVE X1, Y1l: 


160 NEXT T 


Moivre 5 


NZ 


a — 
SL DE 
Æ 


PF 
Fil. 


2 


\7 


VAN 


\| 


D 


D 


F-ai 


T7 


La 


mt 


10 FEM Moivre 6 

LEE 

20  CLG 

#0 FOR IQ TO 10 

40 X1=119S-5XI:Y1=700-9X%XI 
Ta Xe=65+iOxT:Y2=510 

60 MOVE X1,Y1:DRAW X2,YE 
70 Xi=115+SXI:Y1=500-9XI 
80 Xa2=165-1O0XI:YE2=710 

30 MOVE X1,Y1:DRAW XE,Y2 
100 NEX 
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Moivre 6 


10 REM Moivre 7, le Fan 


() 


TO 1 


1 n 


Lie MOVE X1, V1: DRGW XV 
100 NEXT 1 

LIQ MOVE 114 

120 DRAW 1 


: DEAN DRAW 116, 240 


4 
:DRAW 1 


L6, 280: 
1 


4. y a Ù 


Moivre 7 
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SIMULATION D'ORDRES GRAPHIQUES ÉVOLUÉS 


La plupart des micro-ordinateurs possédant un graphisme haute résolu- 
tion disposent des ordres CIRCLE et BOX. 


CIRCLE : permet de tracer un cercle, 
BOX : permet de tracer un rectangle. 


Les deux programmes qui suivent permettent de simuler ces ordres. Les 
tracés se font en BASIC. Un “certain temps” est donc nécessaire pour 
tracer un cercle ou un rectangle... 


CIRCLE 


Ce programme trace un cercle si on lui fournit les coordonnées du centre 
du cercle et le rayon du cercle. Il se sert du fait que l'équation Y(t), X(t) d'un 
cercle est de la forme : 


X = X1 + RCOS (t) 
Y = Y1 +R SIN (t) 


avec X1,Y1 coordonnées du centre du cercle et R rayon du cercle. 


Il suffit alors de faire varier t de O à 211 pour obtenir un tracé complet du 
cercle. 


Exemple 


19 CLG : REM Effacement d'ecran 
20 X1#400:Y1=200:R=100:GOSUB 10000 
30 END 


Programme 


10000 REM XX X OX NC XONOK OKON NOK KCRKO NOK KOAONCHON NOK NONCKCK KE 
10001 REM * * 
1000Z REM X* TRACE DE CERCLES * 
10007 REM X X 
10004 REM  X XX OHCK OK OKON KO KOHONCK NON KO KR NOK AOHCKOKONCIOX 


10005 REM * X 
100086 REM *X Entree : X1, Y1 Coord. Centre X* 
10007 REM * KR Rayon du cercle * 
10008 REM * * 
10009 REM XX XX OK KO OK KONOKOK AOKOKOKON NOK OKON KO OX X 
10010 


10020 FOR 1=0 TO 2XFI STEF F1/90 
10070 X=X1+FRXCDS (I) 

10040 Y=YI+RXSINCI) 

10050 FLOT X,Y 

100860 NEXT I 

10070 : 


10080 RETURN 
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Analyse du programme 


Lignes 10030 à 10040  : Calcul des coordonnées du point courant. 
Ligne 10050 : Tracé. 


BOX 


Comme son nom l'indique, ce programme permet de tracer des boîtes 
de forme rectangulaire en précisant abscisse et ordonnée des deux points 
extrêmes de la boîte : point en haut à gauche et point en bas à droite. 


Exemple 


10 CLG + RENM Effacement d'écran 
PO X1etOs:Vis100: X8R180:VP2=160: GOSUE 10000 
30 END 


Programme 


LOQOQ RER OX ON AC OK HONONCNEACHENEKCHENNO MCE KO CAC CN 
10001 REM % * 
IGOQZ REM * TRACE DE EDTTES * 
1OQC0Z REM *# * 
10004 REM HO ACK NCA HONON NOR MH MOCHE CNE AOC KO CCE X 
10005 KREM X * 


LOGE X Entrées 2 X1,Y1 Cote sup gauchex 
10007 x Fete Lolte sun droit *% 


LOQOE 
1000 


X * 
ACHON AAC NAN M HORMONE MON NE NE NOUONE  XX AOKNX 


QVE X1,Y1 

50 DRAW XF, Yl:DRAW XP, 
10040 à 
RETUFN 


Xe Vel 


LOC 


Analyse du programme 


Ligne 10020 : Positionnement du curseur graphique. 
Ligne 10030 : Tracé. 


PALETTE DE COULEURS 


Si l'on rapproche petit à petit deux points élémentaires de couleurs dif- 
férentes, il arrive un moment où l'œil ne fait plus la différence entre les deux 
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points : il perçoit un seul point dont la couleur est le mélange de la couleur 
de chaque point. 


Ce principe est utilisé ici : la superposition d'un fond de couleur A et d'un 
motif de couleur B arrive à tromper l'œil qui perçoit une couleur C différente 
de A et de B, si le motif est bien choisi. 


Une démonstration est faite en MODE 0, 1 et 2 sans utiliser l'instruction 
INK. Il est donc évident que ce programme ne montre pas la totalité des 
couleurs que l’on peut obtenir par ce procédé. 


Programme 


BEN Palette de couteurs en MODE 1,2 et à 


RER MODE 


TO: 45 
LS: FAPER I 
OR Jeo TO 15 

FEN d 

PRINT CHR& (307) 3 

PAPER O:FEN L:FRINT" PAF 


NÉEYS: IE 


I 


Agaæ"s THEN 00 


Far 


Eu NOT MENT RUN ou 


HAUMVESS ŒU CUT Et 
; 


3 REM MODE 
4 a 


410 MODE T : 
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AT CHR CGT; 


Le FAT PARENT OPEN Je AE 


La PRCENT s PRIME MENU YEX ŒLU UTiE 
touche" 

CET) Ë EVSs IF Agent THEN 490 

Analyse du programme 

Lignes 120 à 230 : Démonstration en MODE 0. 
Ligne 160 : Choix de la couleur PAPER. 
Ligne 180 : Choix de la couleur PEN. 

Lignes 250 à 370 : Démonstration en MODE 1. 
Ligne 290 : Choix de la couleur PAPER. 
Ligne 310 : Choix de la couleur PEN. 

Lignes 410 à 500 : Démonstration en MODE 2. 
Ligne 430 : Choix de la couleur PAPER. 
Ligne 450 : Choix de la couleur PEN. 


REDÉFINITION DE CARACTÈRES 


Programmation de caractères graphiques 


Si le jeu de caractères standard de l'Amstrad ne vous suffit pas, vous 
pouvez inventer de nouveaux caractères grâce à l'instruction SYMBOL. La 
commande “SYMBOL AFTER n” permet de redéfinir 256-n caractères, dont 
le lième sera affiché par “PRINT CHRS (256-n+i)”, pour i compris entre 0 
etn—1. 


Un caractère est défini dans une grille de 8 X 8 pixels. 


Le programme suivant permet de définir un caractère dans sa grille. Les 
ordres sont : flèches haut, bas, gauche et droite pour se déplacer dans la 
grille, P pour allumer un pixel, V pour éteindre un pixel, ENTER quand le 
caractère est entièrement défini. Le programme fournit alors les arguments 
de l'ordre SYMBOL. 
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Programme 


10 RENM Programmation de caracteres graphiques 


Sn NEXT I 

&t KelsVel *Initialsation 

Fo LOCATE X,Y 

80 ARS INFE VS IF Az" THEN 80 

85 AmASC CAE) 

Go IF AS=UE" THEN TE, 

100 IF A$="VT THEN T A 
IF STATE AND KE OT HEN 


PRINT" 


+ 
Le 


_ 
_ 


150 IF AD END K51 THEN X-— 1 

130 IF dé AND Yi THEN Val 

140 IF 82 ANG YVES THEN Yevy+l 

150 IF ASFIT THEN 70 

nn LOCATE 1,1S:FRINT'"Donnees correspondantes : 


s FRINT 
170 FOR Iszi 70 8 


180 Az *Initialisation 
195 FOR J=i TO 8 
200 É=zk+(ET(8-J))XTCI,J) 


210 NEXT J 
220 FRINT À: 
230 NEXT 1! 


Analyse du programme 


Lignes 20 à 50 : Dessin de la grille-caractère. 
Ligne 80 : Attente de la frappe d'une touche. 
Lignes 85 à 150 : Action en fonction de la touche pressée. 


Lignes 170 à 230 : Affichage des arguments de SYMBOL. 


Remarque : Une fois votre caractère défini par ce programme, il suffit de 
le déclarer en tapant (par exemple “SYMBOL 250,1,2,4,8,16,32,64,128”. 
Le caractère sera affiché par PRINT CHR$(250). 


Programmation de caractères graphiques multiples 


Ce programme est une extension du précédent. || vous permet de définir 
un objet quelconque dans une grille de 6 X 10 caractères, soit 48 x 80 
pixels. 
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Les commandes sont les mêmes que pour le programme précédent. 


Quand vous appuyez sur la touche ENTER, la sortie des données (pa- 
ramètres de SYMBOL) peut se faire à l'écran ou sur imprimante. 


Programme 
100 RENM Frogrammation de caracteres graphiques 
multiples 


REM Tnitialisatieon 


IM T(48 


C3 4 


CLS: MODE As INE O0, Os BORDER CG: BEN 
j a 


sie vel °F £ de depart 


DAS à 
Ben REMAKE HN M NH HAE NE DER AC CRC 


O0 REM Gestion du curseur 


THEN TV, KjzlsCPeis GOSUE 10e PRIT 
"Carre plein 

THEN TOY, Xi sos CFeGzs GOSUR 1000: FRI 
Carre vide 
ANT X280 THEN 
AND X THEN 
AID 
AD 
AND 
AND Ac :86 
à ACTIC FEFUSEE 
ALU IF ACHILS THEN 26 ‘Houcle de saisie 
AL REP OOKOK RAR OKOECK OKON EOKOAOROE KA OKON AOAOKOKOROAOK EE 


JO REM Âfficrage des resultats 


60 IF À 
NT CHR CC 
570 IF 


20 IF 


THEN eat 
THEN Ve 
SZ AND tre 41 AND À£:240 
END AC GAS THEN FRINT CHRS C7 


AND é: 


LS 

Ji FRINT'Scrtie des resultats : 
40 FRINT"1) Sur ecran," 

go FRINT'E) Sur imprimante, 
60 FRINT: INFUT'Votre choix sk 

PU IF REËL AND REZ THEN SG ‘Éeponse refusese 
390 IF Kel THEN C=Q ELSE C=S 

S9s MODE ? °86G Colonnes 

Sr ET Je 

600 FOR 1=1 TO 6 

éit FOR J=1 TO 10 

Si FRINTÉC:PRINTHC, "Ligne"1l"Colonne"g"ti"s 
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CRIS) FOR KHei TO 8 
CRT PAETR 
&840 FOR Lei TO 8 
850 A=sâ+ (2% (B-L))XT(E+CI-1)X8,L+(J-1)X8 
\ 
&é6t NEXT L 
7€ FRINTHC, A; 
680 NEXT EH 
NEXT J 
NEXT TI 


END 


FAN RE KOKOKOAOK OKOKOK HER OK HO NOK OK HOK HCKOKOKOK MOKK 

1000 REM Carre plein (CF=1l) ou vide (CF=0) 

1010 

1018 Seû °HRAZ parametre de calcul 

1020 IF INT(IK/2)EEX/2 AND INT(Y/2)<25Y/2 THEN GO 
DUR 1100 


AND INT(Y/2)2%Vv/2 THEN 60 


FOINTEX/2I EX /2 AND INT(Y/ùz Y/2 THEN 60 
CINPCX/E #3 X/2 AND INT (Y/%iz Y/E THEN 60 


1060 Ca=1: G+S ‘Caractere à afficher 
1070 

10680 RETURN 

1090 REM  XHE AC HO HO ACHOK HE HONC AH EH OK HOK HONOR XX 
1100 REM Caractere en haut a gauche 

IF CPFel THEN SxG+1 

IF Tir, X+1)el THEN do 

IF OTÉY4+L, Xoel THEN G#5+4 

[IF TEV+1,X+1)=1 THEN 5=S4+68 


RE TUE 

REMT HOROR HONOR ORCH HE A HE AC AO MO EEK KR XX KOKOKXC 
RENM Caractere en haut «a droite 

LE CFel THEN SeG+n 

IF TV, X-1)zei THEN Sas+i 

IF TEV+L, X-diel THEN S=eS+4 

FF TEY+I, X)=1i THEN S=5+8 


RE ET URN 

1290 REM KA OK KA OK OK HORMONE HORMONE OK ACXKOH GK NOK HONOK 
LE00 REM Caractere en bas à gauche 

STE 


1300 IF CFel THEN G=5+4 


110 BASIC + AMSTRAD 


1550 IF TiY-1,xoel THEN S=S+i 
1340 IF TIVY-1,X+l)el THEN S=S42 
IF TV, X+l)el THEN S=5+8 


RETURN 

REMT Gk k Of OK NOK OK EME KE KE OK ER HE HE KE K MK EX 
REM Caractere en bas «a droite 

IE CFel THEN S:5+8 

IF T(Y-1,X-1)=1 THEN S=S+i 

IF TOY-1,X)ei THEN Ges+e 

IF T(Y,X-1)=1 THEN SeS+4 


14 8 
1< RETURN 


Analyse du programme 


Lignes 100 à 240 : Initialisation. 

Lignes 300 à 410 : Gestion des commandes de l'opérateur. 

Lignes 500 à 730 : Affichage des résultats. 

Lignes 1000 à 1080 : Action suite à une commande P ou V. 

Lignes 1100 à 1470 : Sous-programme de calculs sur les caractères à 
afficher. 


AFFICHAGE DE MOTIFS PROGRAMMÉS 


Affichage monochrome en MODE 1 


L'utilitaire précédent ne saurait être complet sans ce programme qui per- 
met de dessiner sur l'écran n'importe quel objet graphique défini par une 
commande SYMBOL. 


A titre d'exemple, un héros de “Heroic fantasy” a été repris pour illustrer 
le programme. 


Programme 


10  REM âffichage monochrome d'cbjets graphique 
s en MODE 1 

20 

20 MODE 1:INE 1,2:INE 2,0:F@PFER 1: BORDER 2:FEN 
PaCES 


40 X=2:Y=8:U=10:V=i10 
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GOSUR 1000 
GOSUR 2000 
END 

RER OH KO MEHR KOKOKOE CE OK OK M OMOKOE CR HOR OK OK EE OKON KE 


REM Donnegs correspondant & l'objet a dessi 


Definition du motif 
“&éffichage du motif 


ReTa 
bi 
FE 
50 
100 
PEN 
ii 
1e 
120 
140 


4 Er 
1 


DATA 
DATA 
DATA 


D£ 


BEC, RD, BC 


lt 
170 
1986 DATÉE 
190 DATA 
DATE 
DATE 
DATE 


CC 
PARLE 


219 


DATA 
DATA 


1000 
*X 
1010 
*k 
LOC 
* 
RENTE) 
k 
1040 
# 

1050 
X 
1060 
* 

1070 
X 

1080 
* 

1090 
X 

1100 
1110 
1120 
1130 
1140 


1150 


DATA 


REM 
REM # 
REM  % 


DEFINITION C'UN MOTIF 


GRÉFHIGUE 


REM % 


RE CHOHOK OK OKOHONKOK HKONOKKOKOKOMOKOKOKOMOK A HOMO HONOCAOKOKE OX HHCHKCX 


REM X 


* Entree : Donnees correspondant au 


REM X motif graphique. 


ROME HE NOKOKOHKOKOKOK HOKHEOKOMOK MONO ACHEOHCKHOKOCHCK MC HOKONCKCHX 


SYMEOL AFTER 129 
FOR I1=1 TO 16 
FOR J=1i TO 8 
READ A(J) 
NEXT J 
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1160 SYMEOL 128+1,A4(1),A4(2).A(3),A(4),A(S),84( 
6),A(7),A(8) 

1170 NEXT I 

1180 : 

1190 RETURN 

2000 REM  Xk ok 4e he OK OK OO OK COCO OKC OKON COCOON OKOKOKCKOKCKC XX 
*X 

2010 REM * 

X 

2020 REM * AFFICHAGE D°'OBJETS GRKAFHIQUES 

x 

2050 REM * 

x 
2040 REM  KHOCk KOOK MON HOHOKOKHEOHCOHOKOHHOHCKHCHCHKOK HEC HCOKHEOCCKKC CHOC XK 
*X 

2080 REM * 

x 

2060 REM * Entree : X,Y Dimension de l'objet 

x 


2670 REM * U,V Position de l'objet 
X 
2080 REM X DATA graphiques 


2090 REM * Sortie : Affichage de l'objet 
x 
2100 REM %*X 
x 
2110 REM K4K OK OOKOKOKOKOKOKOKOKOK OK HONOR HORMONE OK KCKHOKOKCKCK XX 
* 
2120 
FOR Iæl TO Y 
FOR J=1i TO XX 
LOCATE U+J-1, V+T-1 
FRINT CHARS (1294+(J-1)+(1—-1) XX) 
NEXT J 
NEXT I 


RETURN 


Fat 


Analyse du programme 


Lignes 10 à 70 : Programme principal. 
Ligne 30 : Définition des couleurs du fond et du person- 
nage. 
Ligne 40 : Position et dimension du personnage. 
Ligne 50 : Définition du personnage. 
Ligne 60 : Affichage du personnage. 
Lignes 100 à 270 : Données graphiques correspondant au person- 


nage. 
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Lignes 1000 à 1190 : Définition du personnage (conversion des DATA 
en caractères accessibles par CHR). 
Lignes 2000 à 2200 : Affichage du personnage. 


Remarque : L'entrée de la procédure de définition du motif (lignes 1000 
à 1190) n'étant pas paramétrée, il vous faudra modifier la ligne 1120 sur 
laquelle figure le nombre de caractères à définir, si vous voulez créer un 
personnage différent. 


Animation monochrome en MODE 1 


Forts de l'exemple précédent, nous voilà capables d'aborder l'animation 
graphique qui, dans sa plus simple expression (c'est le cas ici) se bornera 
à deux images différentes. L’alternance de ces deux images donnera une 
impression de déplacement. 


Le programme a la même structure que le précédent, mais comporte en 
plus un sous-programme paramétrable qui permet d'effacer un motif gra- 
phique sur l'écran. 


Programme 


10 REM Animation monochrome en MODE ïi 
350 REM Initialisation 


50 MODE 1:INK 1,2:INK 2,0:FAFER 1: BORDER 2:PEN 
2:CLS 

S5 PRINT" Animation monochrome en MODE 1" 

40 SYMBOL AFTER 129 

70 SY=129:N=16: RESTORE :220:GOSUR 1000 ‘Heros au 


repos 

80 SY=145:N=16:RESTORE 490:GOSUR 1000 ‘Heros en 
marche 

90 X=2:Y=8 

100 : 

110 REM Deplacement du Hero 

120 : 

130 FOR Z=1 TO 30 STEF 2 

140 U=Z:V=10:SY=170:GOSUE 2000 


150 GOSUR 3000 

160 U=U+1:SY=146:GOSUER 2000 

170 GOSUE 23000 

180 NEXT Z 

190 CLS:END 

200 REM XXCXK OK NOK OK OK KOKHCUOHOKOKOKOKC HO HACK CN HCKC 

300 REM Donnees correspondant a l'objet a dessi 
ner 

310 : 

320 DATA RFF,8SFF, RFC, RFI, BED, LEO, SDO, &C1 

330 DATA 9,0,0, 0,880, #80, 0,0 

340 DATA 8RCB,SC7,O0,878,8FC,8SRE,&EF, &ED 

350 DATA 0,0,0,0,0,0,0,0 ras: 
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360 
370 
380 
290 
400 
410 
420 

30 
440 
450 
460 
470 
480 
490 
500 
910 
920 
S30 
540 
350 
560 
579 
580 
990 
600 
610 
820 

30 
640 


1000 


* 


* 


1020 


* 
1030 


1090 
x 
1100 
* 
1110 
X 
1120 
* 
11530 
x 
1140 


1010 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA % 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


&ED,8&A9,881 
0,0,0,0,0,0,0,8&04 

LAO RAD, MED SFF RFF, RFF, &80, 880 
LEF,SFF,&FF,0,0,0,880,880 
%80,880,2888,288,%88,288,%4A,8FF 
%80,280,2880,280,880, 880,280, 0 
LEF,UEF, REF, B6F, RIT, RIT, RT7, T7 
280, 8&80,%80,880,880, 880,880, &80 
UIB,%IB,%77,%77,877,8ID, 837,817 
280,880,2%C0,8%C0,8&C0, 880,880, 0 
L16,42F,U2F,%2F,0,0,0,0 
O,O,8EO,&E0,0,0,0,0 

AOXONONAOH KO HCKOHOKHOKKCKOHOHCHOHOMCKONE HOHCK HE HOHONCK 
LFF,SFF, RFC, SF1, LEO, LEO, &DO,&C1 
0,0,0,0,880,880,0,0 
LCB,RC7,0,078, RFC, RFC,RFE, &FD 
0,0,0,0,0,0,8C,8E 
UFD,8D0,RCD,8RF1,%41,841,%41,841 
U9F,LCF,REE,RF7 RFF, R7E, I 
%41,841,8A41,8FF,8RFF,8SFF, RO, 8&80 
),0,0,0,880,2880 
:80,288,288,268,2888,%A4A,8FF 


HD, &A4D,%AZ, RAT, LAS 


W3D,&3D, ED, MED, LED, &7C, &78, 870 

LCO, LEO, ED, LEO, SFO, 870, 870,870 
&70,%70,%F8,8FB,8FB, 870,870, 2870 
&7O,%70,8FC, FC, RFC, &38, 438,438 
W70,%F8,8FE,BFE, 0,0,0,0 

LAB, %7C,%7F, 477,0, 0,0,0 
HAINE AO OO OO IDD 


x 


* DEFINITION D’UN MOTIF GRAFHIQUE 

* 

XX NOONOKKAONONNONOK RE MORAEAOHOHNE NOK AOHCNOONONOHOHE MONO HONC OK 
X 

*X Entree : Donnees correspondant au 
X motif graphique. 

* SY Sybole de debut de 

Lt definition. 

* N Nombre de caracteres 
X redefinis 


x 


XOXONONOKOKOKOHOHHOK HR AOHONOKOKOKHOHOHCKKCKCHCHCMCKCOKCHCHCKKKHCHCK 


FOR I=1i TON 
FOR J=1 TO 8 
READ AJ) 
1180  NEXT J 
1190  GSYMEBDL SY+I1,A(1),A(2),A CH), AC AS), A (EG 
»,A(7),A(B) 
1200 NEXT I 


1150 
1160 
1170 
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RETURN 
REM CKHCKOKOHEOKOKOKONOKEKOKOHOHOKKOKOK HOKOKOKOKOK HO HCKCKCKE HONCKCKOKOK 


2010 REM * 

x 

2020 REM * AFFICHAGE D'ORJETS GRAFHIQUES 

x 

2070 REM * 

x 

2040 REM XX OKON OKON KOKKOKOKCHOKOKOKOKOKKCKOKKNENC HOMO HO CN 
* 

2050 REM * 

* 


2060 REM *X Entree : X,Y Dimension de l'objet 
* 


2070 REM * U,V Fosition de l’objet 
X 

2080 REM %* DATA graphiques 

X 


2090 REM * Sortie : Affichage de l'objet 

x 

2100 REM * 

* 

2110 REM XX XX ONOKONOK OKON AOKOKMONOK NOK OHCHCOKOKHOMKOKOHOHOKCHOKOHOMOKKONOK 
* 

2120 : 

2130 FOR I=1 TO Y 

2140 FOR J=1 TO X 

2150 LOCATE U+J-1,V+I-i 

2160 PRINT CHR#(SY+(J-1)+(I-1) XX) 

2170 NEXT J 

2180 NEXT I 

2190 : 

2200 RETURN 

3000 REM  XOKKOKOKOOKOKOKOKMOKOMOKOKOHCHOKHOHKOKHOKKOHCOKOMCHEKEOCKOK OC NCNCNCK 
X 

3010 REM * 

* 

2020 REM *X EFFACEMENT D'OBRJETS GRAFHIQUES 

*X 

HOSO REM * 

x 

FO40 REM  K4K MN NOK OHCOKOHCOKOKOHCOKOKOKKOH CRC OCR COCO OKOKOCK 


LE 

3050 REM * 

X 

3060 REM *X Entree : X,Y Dimension de l'objet 
x 

3070 REM *x U,V Fosition de l’objet 
* 

31080 REM *X Sortie : Effacement de l'objet 

x 

5090 REM *X 

* 

3100 REM XX KO HOKONCK OK OKON KOKOKKC HCKOKOKOK OK KO HOKOKOKHCNCNCKOK 


FOR I=i TO Y 
SC LOCATE U,V+I-i 
5140 PRINT SFACES(X) 


3130 NEXT I 
7160 : 


3170 RETURN 
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Analyse du programme 

Lignes 10 à 55 : Initialisation. 

Lignes 60 à 80 : Définition du héros. 

Lignes 90 à 190 : Déplacement du héros. 

Lignes 300 à 640 : Données correspondant au héros. 

Lignes 1000 à 1220 : Conversion des DATA en caractères accessibles 
par CHRS. 


Lignes 2000 à 2190  : Affichage du personnage. 
Lignes 3000 à 3170  : Effacement du personnage. 


Jeu d'animation monochrome en MODE 1 


Beaucoup de jeux comportent un nombre limité de personnages. Les 
personnages ont eux-mêmes un nombre de positions différentes limité. 


Le programme suivant montre qu'il est facile de réaliser de tels jeux sur 
Amstrad. 


Le héros qui a été défini précédemment peut se déplacer sur l'écran 
grâce aux touches-flèches et peut attraper des écus d'or (carrés !) qui tom- 
bent du ciel. Pour cela, il doit être bien positionné quand la pièce arrive à 
son niveau. 


Programme 


10 REM fmimation monochrome er MODE 4 


0: FAFER 1: BORDER 


2: FEN 


Mets POet Tri Li ali sat cart 


0x GOSUR LOGO Mere ai 


ét: GOSUR OGC Heroes er 
RE GiGsGUSUR LOD0 Herce & 


HE PO: GOSUR 1600 Hercg € 


JME SSOsGOSUS 1000 FIECE Ca 
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EXAEXEX 


> 
+ 


DATA 
DATA 


# Entree 


1 


pe be pue pe 


À LA AON AA AC AO AC AIO CCE 


DEFINITION DEUN MOTIF 


YMBOL SY+I, 8 CI) A CES. À 
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DC, HEC, “ES 


MEHR AE OKOK AC PEER OK AK EE ORCH CHE EC ME EC AE CHE 


L'OPUTEESS 


MOT E 


defini Lion, 


MN Nombre 


redetinis 


AE OK HO KE ACOKCE KO EE CRE AK HE CE HEC KE OK CNE KO HE 


At), At 
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AFFICHAGE 


D'OBJETS GRAFHIGL 


FES KO HER HE AE NO EEE HE OK KE OK OK NE AC KOKC EEE KR KE 


RER x 


REM * Entree : X,Y 


HEM K LV Fogition de L'eobiet 


GRAPHIQUES 


OMC HOMO ACC HO KO OKON 


X Entrée 2 XY Dimension de l'objet 


Li Li Li & LA 


REM  % UV Fosition de 1°objet 


X Sortie : Effacement de l'obiet 


HIOC REM HO CKOKOK ON KOK OH HO OKOKOK CE KR OK KE OK HOME HCKONEE OOKK OK 
x 

3110 : 

3120 FOR I=1 TO Y 

3130 LOCATE U,V+I-1 

3140 FRINT SFACES(X) 

3150 NEXT I 

3160 : 

3170 RETURN 
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4000 REM XX KO CKOCNOK OKON MO OKOMOMCOKOKOHEOK KO CO OCOKEK CCR KO 
x 
ADO REM * 


x 

4020 KREM *X DEFLACEMENT DU HEROS VERS LA DROITE 
x 

4050 REM * 

x 

4040 REM XX XKOXONOHOK KCKOKOHOHOKOKOKOKOHOKOKCKOKHOK HCKOKCHHOKOKOKOHCHOKKOHHCK 


x 
400 à 

4060 IF UX2S THEN RETURN ‘Deplacement refuse 
4070 3: 

4080 1F F=l THEN F=0 ELSE Fi ‘Fosition repos © 
u marche 

4090 GOSUR 2000 ‘Effacement position precedente 


4100 IF F=i THEN SY=1:0 ELSE SY=146 

4110 U=U+?:GOSUEB 2990 *Deplacement du heros 
4120 : 

4130 RETURN 

JOO00 REM X XX OK OKOK HOKOKOK AOKOKOHOKOKOE OKON KO HONOR OK KR HONOR AC 
*X 

9010 REM * 


* 

5020 REM *X DEFLACEMENT DU HEROS VERS LA GAUCHE 
x 

9030 REM * 

* 

SO040 REM KKHONCHCOUCHKOKOMCOUOOMONOKONHOKOKKOKOKCKOKOKOKOKOKOKOKCHK HOMO HCNON OK 
* 


9090 : 

9060 IF UT THEN RETURN ‘Deplacement refuse 
9070 : 

2080 IF Fei THEN F=û ELSE Fei ‘Fosition repos © 
u marche 

2090 GOSUR 20006 Effacement position precedente 
9100 IF F=l THEN SY=142 ELSE SY=178 

3110 U=U-2: GOSUR 2000 ‘Deplacement du heros 
9120 : 

9130 RETURN 

6OO0 REM XX OK KOKOKCKONCKOKONOHOKOHOKOKCHOKOHOKOKHOKOKOHOHOHOKOKOHCKMCKKNCKC CN 
* 

6910 REM * 


* 

6920 REM X DEFLACEMENT DES FIECES CARREÈES 

* 

&BCIO KEM *X 

x 

6040 KEM XX OX NOK KOKOKOK NC KOKOKOKOHCHKOKOKOKOHOHOKOKOKOHOHHCOKOKOK HCKKHCHCKK 
* 


6050 : 

6060 IF RND:O0,8 THEN RETURN ‘Aucune action 

6070 IF FO:0 THEN LOCATE XF,FO:FRINT" " 

6080 IF FO:10 AND ARHS(XF-U)2T THEN FRINT CHKRS# C7 
à ‘1 point 

6096 IF FO:10 THEN FOz0 

8100 IF FO=0 THEN XFÆ=INT (RNDXE0) +5 

6119 FO=FO+® 

8120 LOCATE XF,FO:FRINT CHR$ (194) 

6150 RETURN 
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Analyse du programme 
Lignes 10 à 230 : Programme principal. 

Lignes 30 à 70 : Initialisation. 

Lignes 80 à 120 : Définition des objets graphiques. 

Ligne 130 : Initialisation de la position du héros. 

Lignes 150 à 230 : Déplacement des divers objets graphiques. 
Lignes 250 à 950 : Données correspondant au héros et à l'écu d'or. 
Lignes 1000 à 1220 : Définition des objets graphiques (conversion des 


DATA en caractères accessibles par CHRS). 
Lignes 2000 à 2200 : Affichage d'un objet graphique. 
Lignes 3000 à 3170 : Effacement d'un objet graphique. 


Lignes 4000 à 4130 : Déplacement du héros vers la droite. 
Lignes 5000 à 5130 : Déplacement du héros vers la gauche. 
Lignes 6000 à 6130 : Déplacement des écus d'or. 


Remarque : En suivant la même démarche, vous pouvez à moindre frais 
créer de “bons” jeux d'animation. Pour définir les personnages ou objets 
du jeu, servez-vous du programme “Programmation de caractères gra- 
phiques multiples”. 


Parmi les programmes qui suivent, certains font appel à des routines 
écrites en Assembleur. Ces routines sont stockées en mémoire par un 
programme BASIC où elles figurent sous forme de DATA, et sont appelées 
par « CALL &ADRESSE ». Si parmi les lecteurs, il y a des personnes dé- 
sireuses de comprendre le fonctionnement des routines Assembleur pré- 
sentées, un listing commenté est fourni pour chaque routine et une analyse 
sommaire est faite. (Le microprocesseur de l'Amstrad est un Z80, et aucune 
astuce de programmation n’est employée ; le décryptage du programme 
devrait donc être simplifié pour une personne connaissant bien l'Assem- 
bleur Z80.) 


MODIFICATION DU CONTENU DE L'ÉCRAN 


PAPER 


Le programme présenté ici permet d'écrire en bloc dans la mémoire 
d'écran pour reproduire l'effet de la commande “PAPER”. Il n’a de raison 
d'être que d’un point de vue pédagogique (ménageons le lecteur, sans quoi 
il risque d'être affolé par la progression vertigineuse de la difficulté !). 
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Avant d'entrer dans le détail du programme, analysons la structure de la 
mémoire d'écran. Tout d'abord, elle est implantée en &C000. Quel que soit 
le MODE (0, 1 ou 2), elle est divisée en 8 blocs, 1 bloc constituant une ligne 
élémentaire par ligne et une ligne élémentaire comportant 80 octets selon 
le schéma ci-dessous : 


80 octets 


bloc 0 
1 ligne 
bloc 7 
200 pixels 
(8 x 25) 
25° ligne 
= 


Remarque : Chaque bloc fait 2 KO soit 2048 octets. Or, on voit que seu- 
lement 25 x 80 = 2000 octets sont utilisés par la mémoire d'écran. Les 48 
autres octets sont perdus et ne servent à rien. 


Organisation de chaque octet graphique en fonction du 
mode d’affichage 


Bit 
PEN 


MODE 0 : 
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LSB MSB 
Bit 
MODE 1 : PEN 
Pixel 112138101112 
LSB MSB 
Bit 
MODE 2: PEN 
Pixel O0 111213141516! 7 


LSB = Least Significative Bit 
MSB = Most Significative Bit 


Revenons au programme de remplissage d'écran. 


Il est constitué d’une boucle dans laquelle on remplit chaque octet gra- 
phique avec &O0F, ce qui a pour effet, en MODE 1, de remplir l'écran avec 
la couleur PEN 2. 


LDA OF *x Motif de couleur FEN 2? 

LD HL,CO00 *X Debut de la memoire d'ecran 

LD D,40 * Nombre de boucles de FF ecritures 
L1 LD E,0 *X FF ecritures 
L? LD (CHL),A *X Ecriture SCRN 

INC HL *X Passage a l’octet suivant 

DINZ L? *X B-1, bis si B<>0 

DEC D * 1 boucle de FF ecritures realisee 

JR NZ,LI1 *x Bis si non fini 

RET * Retour au BASIC 


Ce programme Assembleur est incorporé dans un programme BASIC. 
L'appel à la routine ASM est fait en ligne 180. 


100 REM KRemplissage d'écran 
LYC 

120 
1.50 
146 
130 

ién DaTe 


a 


PCI RECOO ET, É 


Bel bn OO, Hé, Be, Re 


186 CALL &BGo0 
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Sauvegarde/lecture de contexte 


Les deux programmes proposés ici permettent, pour le premier, de mé- 
moriser une page écran, pour le second, de restituer la page mémorisée. 


La mémoire d'écran commence normalement en &C000 et occupe &3FFF 
octets. L'offset (ou déplacement) du 1°’ caractère par rapport au début de 
l'écran est alors nul. Malheureusement, dès qu'un SCROLLING d'écran se 
produit (lors d'un LIST par exemple), l'offset prend une valeur non nulle, ce 
qui a pour effet de faire commencer la mémoire d'écran &C000 à un endroit 
différent du début (coin en haut à gauche) de l'écran. 


Heureusement, une routine du firmware CPC permet de forcer le début 
de l'écran en &C000. Cette routine est située en &BBFF. Elle doit être 
appelée avant toute sauvegarde ou restitution de contexte, et doit être pré- 
cédée de CLS (voir exemple). 


Pour que les deux routines suivantes (sauvegarde et restitution de 
contexte) fonctionnent normalement, il est nécessaire que les opérations 
ayant fait suite à l'initialisation de l'écran (CALL &BBFF) n'aient pas produit 
de scrolling. 


Par exemple, pour utiliser le programme de sauvegarde de contexte : 
CLS : CALL &BBFF 


LIST 
RUN 


Pour utiliser le programme de restitution de contexte : 


CLS : CALL &BBFF 
RUN 


Si l'affichage réalisé par le second programme (restitution de contexte) 
vous paraît bizarre, c'est que vous n'avez pas respecté les opérations 
(CLS:CALL &BBFF) d'initialisation avant de lancer le programme de sau- 
vegarde. 


Sauvegarde de contexte : 


Le programme Assembleur fait une copie de la mémoire d'écran &C000 
à &FFFF en mémoire vive à partir de l'adresse &6000. 


LD HL,6000 *x 9 de debut de sauvegarde 

LD DE,CO00 * 2 de debut de mem. ecran 

LD C,49 * Nombre de boucles de FF ecritures 
Li LD EB,0 *X FF ecritures 
L?2 LD A, (DE) * Lecture ecran 
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LD (HL),4 * Sauvegarde memoire 
INC HL *X Passage a la memoire suivante 
INC DE *X Passage a la memoire ecran suivante 
DINZ L2 X B-1, bis si B<:0 
DEC [8 * 1 boucle de FF ecritures realisee 
JR NZ,L1 *x Bis si non fini 

* 


RET Retour au BASIC 


Le programme BASIC mémorise la routine de sauvegarde à partir de 
l'adresse &5FEO et l'exécute. 


LOU REP Salive 


BSFECX+ 
Fr 


LÉO, kil, 


Hu LO, & LÉ A, D, 20, 


BEC 
Lecture de contexte : 


Le programme Assembleur fait une copie de la mémoire &6000 à &9FFF 
en mémoire d'écran. 


LD HL,6000 *x 2 de debut de sauvegarde 
LD DE,CO000 *X 2 de debut de mem. ecran 
LD C,40 * Nombre de boucles de FF ecriture 
Li LD B,0 X FF ecritures 
Le LD A, CHL) * Lecture memoire 
LD (DE) ,A * Sauvegarde ecran 
INC HL *X Passage a la memoire suivante 
INC DE * Fassage a la memoire ecran suivante 
DINZ L? X B-1, bis si B<>:0 
DEC C X 1 boucle de FF ecritures realisee 
JR NZ,L1 * Bis si non fini 
RET *X Retour au BASIC 


Le programme BASIC mémorise la routine de lecture à partir de l'adresse 
&5FAO et l'exécute. 
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Remarque : Si, entre la sauvegarde et la restitution de contexte, vous 
faites des opérations de chargement (LOAD), la page sauvegardée risque 
d'être altérée. En principe, ce problème n’en est pas un puisque ces deux 
utilitaires sont incorporés dans un même programme, et qu'aucune opéra- 
tion “LOAD” n'est alors nécessaire. 


REMPLISSAGE DE BOÎTES 


Il peut être intéressant (par exemple pour tracer un histogramme sous 
forme de barres) de pouvoir remplir facilement un rectangle d’une dimen- 
sion quelconque. 


Les deux programmes qui suivent réalisent cette tâche. Le premier est 
écrit en BASIC, le second en Assembleur. 


Programme en BASIC : 


Il consiste en une suite de DRAWR en partant du bas du rectangle à 
remplir. 


Exemple d'appel 


Ë ré du trace 
“âppel de EODXF 


MER ACCRO ME HE AE AR REC GORE ROCK ME EE A AO AC NE AC 


TRACE 


ACRCE AO ME HE AC AEHEUR ANC HONEACHE OCRAC EME EH NE AC HO CAE AC DONC CRC 


LEYA TO VE 


| 
À 
4 « 
A 
À 
À 


Analyse du programme 


Ligne 11010 : Positionnement du curseur graphique. 
Ligne 11020  : Tracé de la droite. 
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Programme en Assembleur : 


Il réalise la même action de remplissage, de bas en haut du rectangle en 


faisant appel à la routine firmware “LINE RELATIVE”. 


ÉIELL 
Qr co 


does te 


1 MOVE 
li MOVE 
lt 
chi 


dis LINE 


HL, CFO 


(E046) , HL 
A,H 

1. 

NZ, L1 * 


Les ME 


Le programme ASM est inséré dans un programme BASIC sous forme 


de DATA. 


Exemple d'appel 


'Farametre ce Bixr 


Programme 


1000 REM Mise en memoire de la routine ASM 

1910 : 

1020 FOR I=0 TD 38 

1050 READ &:FORHE &BOOO+I, A 

1040 NEXT 1° 

1950 DATA SED, 25H, 440, 8R0, 220, %44,8B0, RCD, &C0, & 
BB, ED, %SE, &42,8E0 

1060 DATA 821,0,0,8CD,8F9,8RBR, RAA, R44, 80, RES, & 
22,244, 8E0 

1070 DATA LEA, 846, 8B0, 82H, 827,846, RRQ, 870, RES, & 
20,8D4,8C9 

1080 2 

1090 RETURN 


1100 REM XKXKOKOKOOKOUKOKOUOKKMREK NE EMERKXENEXEXX — 
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1200 REM Frocedure BOXF 


1210 s 


1220 KEM Entree : X = Sbcisse du bord gauche 
1250 REM LX= Largeur de la boite 

1240 REM Y = Drdonnee du bas de la boi 
te 

#90 KEM LY= Hauteur de la boite 

1260 

270 AZ) =INT(IX/2S6) 5 4i1)=xX-A (2) 


Î 
; BC) = INT ELX/286) 38 C3) =LX-À (4) 
A(O)=INT(Y/256) 3 (S)=Y-AÀA (6) 
ACBI=INT (LY/E2586) 5 A7) =LY-8 (6) 
FOR Ie0 TO 7 

POFE &HOG40+T, À CI +1) 
NEXT TI 


CALL &h000 


RETURN 


Analyse du programme 


Lignes 1000 à 1090  : Mise en mémoire de la procédure ASM. 
Lignes 1100 à 1370 : Passage des données à la procédure ASM et exé- 
cution. 


REMPLISSAGE D’UNE SURFACE DÉLIMITÉE PAR UN 
CONTOUR FERME 


Le micro-ordinateur Amstrad ne possède aucun ordre de remplissage 
d'une surface délimitée par un contour fermé. L'utilitaire suivant comble 
cette lacune. 


Avant d'entrer dans le détail du programme, analysons la démarche lo- 
gique utilisée pour réaliser le remplissage. 


L'écran possède 640 x 200 pixels. Ces pixels sont accessibles par les 
instructions graphiques MOVE, PLOT, DRAW, TEST, etc. avec les argu- 
ments X (0..639) et Y (0.899). Le tracé d'un contour fermé sur l'écran 
pourra être repéré par l'instruction TEST(<Coord. X>, <Coord. Y>). En 
balayant l'écran, pour X de 0 à 639, et pour YŸ de 0 à 399, nous pourrons 
connaître l’état coloré de chaque point par le résultat de la fonction TEST. 
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Il suffira, partant d’une encre PEN O, identique à la couleur PAPER, de 
modifier PEN 0 en PEN 1 (et inversement) à chaque occurrence 
(TEST) <>PAPER, dans un balayage horizontal de l'écran. 


Ce qui se schématise par l'organigramme suivant : 


Point 
X,Y allumé 
? 


Point 
X+1,Y allumé 
? 


Allumage 
du point 


Changement 
couleur du point 


L'organigramme précédent nous montre que le changement de couleur 
sera effectué uniquement si deux points consécutifs ne sont pas allumés. 
En effet, tout segment de droite horizontal ne demande pas de changement 
de couleur, et le programme considère comme segment de droite, toute 
proximité immédiate de deux points allumés. Le programme de démonstra- 
tion donné par la suite montre les problèmes que l’on peut rencontrer (sur 
le cercle) pour remplir une surface délimitée par un contour sur lequel il 
existe des points consécutifs allumés. 
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LD A,0 
CALL  #BBDE * Modif encre HIRES 
LD HL,0 
LD (BFOO) ,HL 
LD CHFO2) ,HL 
LD (BFO4) ,HL *%X Initialisation 
20 LD HL, (BFO0) 
INC HL 
LD CBFOO) ,HL * No de point sur la ligne 
LD EC, %6:9 
SCF 
SEC HL, BC * Est-on en fin de ligne ? 
JR C,Li1 * NON 
LD HL, 0000 * OUI 
LD (BFOO) ,HL *X KAZ indic ligne 
LD HL, (BFO2) 
INC HL 
INC HL 
LD (BFO2) ,HL *X Indic de colonne 
LD EC,%:99 *X Est-on en haut de l’ecran 7? 
SCF 
SEC HL, BC 
JR NC, L? x OUI 
Li LD DE, (BFOO) *X NON 
LD HL, (BFO2) 
CALL  #BBFO *X GRA TEST AES 
CP 1 *x Foint allume 7? 
JR C,L3 *X NON 
LD DE, (HFOO) 
LD HL, (BFO2) 
INC DE 
CALL  #BEFO *X GRA TEST AES 
CF 1 *X Point + 1 allume ? 
JK NC, 11 *X OUI 
LD A, (HFOS) 
ORA A * Flag presence = 1 7 
JR NZ,1® * OUI 
LD A, (EFO4) 
CF 1 
JR C,LA4 
LD A,0 
LD (BFO4),A X*X KAZ flag presence 
JR LS 
L4 LD A, 1 
LD (BFO4),A *X RAÏ flag de presence 
LS CALL  K#BEDE *x GRA SET FEN 
L3 LD A, (EFO4) 
CF 1 * Fresence = 1 7? 
JA C,10 *x NON 
LD DE, (BFOO) 
LD HE, (BFO2) 
CALL  K#BBEA *X GRA FLOT ABS 
19 JR 20 
11 LD A, 
LD (BFO5) ,A 
JA LE 
12 LD A,0 
LD (EFOS) ,A 
JR L:3 
L? LD A, 1 
CALL  #BEDE *X GRA SET PEN 


RET x Retour au BASIC 
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Le programme Assembleur est inséré en DATA dans un programme 
BASIC sous forme d’une procédure qui doit être appelée par “GOSUB 
10000” pour être mise en mémoire et par CALL &BF10 pour être exécutée. 


Remarque : CALL &BFAO permet de sélectionner PEN 1 comme pro- 
chaine couleur d'affichage graphique. 


10000 REP KO HOMONOHOHOMOKHEOK HERO ENORME AC ACC KO 
HORACKOROHOKOHOHOACOKOH AOKOHOMOK KE X 
10010 REM %* 
X 
10080 REM *X  MEMORISATION DE LA FROCEDURE ASM D 
E REMFLISSAGE x 
OO ED REM % 
*X 
LEGO REPT  AOK HOMME ACAOKOHOHOE OK KO HO OK ONCE COX 
AAA AK KOKOKCKOKAOKOK OH HOMO X 
10080 
10060 FOR IeG TO 149:READ &sFOKE SBFIO4+I, BE NEXT 
I 
10070 DATA RE, 0, &CD, RDE, LEE 
10080 DATA #21,0 D, 42, O BEF, L22,8,8EF,22,4,8E 


FEPA,O, EF, M2E, 829, 

10090 DATA 1. Fi er 38,.416,&21,0,0, 
2,0,8EF,&20,2,8BF, 425 &EF 

10100 DATA 1,%B8F, 1,8 7 LED, L47 220. LOR. GED, SR, 

OBEF, BBA, 2, LEP, LCD, FO, BE 

10110 DATA FE, 1,438, 428, LED, 258, 0, EF, PA, 2, &E 
&13,8CD,4FO,SBB,SFE, 1,830, 82F 

10120 DATA LA, 5, BF, 287,820, 830 

10130 DATA SA, 4, BEF,LFE, 1,838,7,8SE, 00,832, 4, & 

BF,%18,5,88E, 1,832, 4,8EF 

10140 DATA 8&CD,&DE, BE, LEA, 4, REF, @PE, 1,438, A, 8 

ED,&SE,0,4BF, SA, 2, BF, &CD, € LEA, LB 

10150 DATA 8&18,%8F 

10160 DATA USE, 8OL, EDS, BF, LB, REG, BE, O, BED, 

S,SBF,%18,&DF 

10170 DATA &GE, 1, CD, RDE, BB, &C9 

19180 RETURN 


DAS PE 


&, 


rar 


Exemple d'utilisation 


10 GOSUR 10000 *Initialisation 

20 MODE ? ‘Fassage en mode haute resolution 

F0 3 

40 REM Kectangle 1 

50 MOVE 300,20: DRAUR 0,50: DRAUWR 20,0: DRAWR O0, -5 
O: DRAWR -—30,0 es 


132 BASIC + AMSTRAD 


60 : 

70 REM Triangle 

89 FOR Iz1i TO 100 STEF 2:FLOT I, I:NEXT 

90 FOR I=101 TO 200 STEF Z:FLOT I1,200-I:NEXT 
100 MOVE 1,1:DRAWR 198,0 

110 : 

120 REM Cercle 

130 DEG 

140 FÜR ai TD 560 

150 FLOT BO+804C0S (a), 2S0+B0XSIN (a) 

160 NEXT a 

170 0% 

189 KREM Rectangle % 

190 MOVE GO, 200 DRAWR 200,0: DRAWR ©, 50: DRAWR — 
1,0: DRAUR ©, -30 


OO CALL SEHFAO *Frepositionnement FEN du BOXF 
2e CALL SBF10 ‘Remplissage des contours fermes 


30 END 


Remarque : On peut noter que : 


0 Le cercle n’est pas correctement rempli. Ceci est dû à sa définition très 
grossière. En effet, il existe plusieurs paires de points consécutifs al- 
lumés. Ces paires de points sont considérées comme des droites et ne 
demandent donc pas de modification de couleur. 


Le problème précédent a été résolu dans le tracé du triangle. L'instruc- 
tion PLOT remplace avantageusement l'instruction DRAW qui se permet 
(eh oui !) d'allumer deux points consécutifs sur une même ligne. Essayez 
donc de remplir un triangle confectionné à l'aide des instructions DRAW, 
du genre: MOVE 100,100:DRAWR 100,100:DRAWR 100, 
—100:DRAWR —200,0 et comparez les résultats. 


REPRODUCTION DE FIGURES EN BASSE 
RESOLUTION 


Il est assez facile de reproduire un dessin quelconque par une suite de 
lettres de l'alphabet. Nous prenons ici l'exemple de TITI. Les zones les plus 
claires sont représentées par la lettre “O”, les zones sombres par la lettre 
“B” et les zones intermédiaires par la lettre “P”. 
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En particulier, le contour du dessin est réalisé par la lettre B. 
Le programme consiste en une suite de “PRINT#8,Ligne”. 


BG 
Ë *C (36) "0" 
D AO TAC a à 


6ù FRINTHE,SFC(26)"0 DO 0" 
70 FRINT#B,SFC(27)"0 DO O" 
80 PRINT#S,SFC(27)"0 O0 O" 
50 PRINTÉS, SPC (24) BPPPPEPEEFFPEPPE" 
100 FRINT#B, SPC (19) “EBPPPPPPPEPEPEPEREEE 
110 FRINT#B, SPC (16) BPEPFFPEFPEPPPEPPREPEE 
BPEER 
PRINTHB, SPC (LE) "EPRPRFPPPPERFEREPRRRRRRRRERE 
é FFE ë 
130 PRINTHS, SPC (11) "BPPRPPRPPRPEPRRRRRERFEPRRRE 
: è Qui 
140 FR INTHE, SPC (9) "EPPPREPREPRERRRRREPRRERERERE 
ET un CPE PE 

(8) “BPPPBPPFERPPPEPEPPEPEPEPEFEE 
PRPPEREPPRECEPEREPPE" 

160 FRINTHE," BPPÉFPEBPPPPPPERRE PRPPEBFE 
PÉPFREFFEEPEREPEPFFPRFE" 

170 FRINT#8," BPPRPPEPPPPEPPPPRPEPPPRPEPEPEE 
PPEFPPEPFPPEPEEFPBPPEBFE" 

180 FRINTHE," BPPFPPRPPPRRPEEEPEREPEPEPEPEE 
PPPPFEPFEPERPERPEPEFFEREE" 

190 FRINTÉ#S," BPFPFPEPPEPEPPERPERPEPERPPPREE 
PPPRPRPPEPEPRREPREBPPERRER 

200 FRINT#S, FFFFPFÉPPEEBPREBPEPREPPEPPPRPRERE 
PRRPPREPPRREBPERPPRRPPRRR 
INTHE, BEF PPÉPEPPEPPPPPPPEPEPPPREE 
FPFFFFBPEPPPEPE FFE" 
INTHS, BFPPFEPPREBPEBPEBEPPPERPEREPEEE 
PEPPPPEPEPPPEPFRRPPE" 

220 PRINTHE, BPPFFFFFPPEPPEPPERPPEPPRREEPPRRE 
PPFFPFFFREPBPERPEBPEPPRREPE" 
240 PRINT#S," BPFPFFFFFFPEFFE FPPPFEFFPEEE 
PPPEPE EPPEPREPPPPPRPE" 
50 FRINTHS, FFFFFEFFFEFE FPFPPEPPPE 
PRPPFF PPPPPPPPPPPE" 

26% PRINTÉHS, " BFFPFEPPPFRE FFFFFFFREE 
FPPEE PPFEPFPPPEFE" 

270 FRINT#8," BFPFÉFREEE FFPFFEPEEE 
FFF FFFFFFPFFFEES" 

280 FRINT#G," BFFFPFFPFF FFFFFFFFE 
PEFE FFFFFFFFFPE" 


FFFE" 
FFFPPEF 


—+ 


FRINT#48, " 


FRINT#8," 

00 
FPRINT#8," 
0000 
FRINT#S, " 
00000 
FRINT#8," 


FRINTH#S, " 


FRINTH#S," 
OBEOO FFFFFFE" 
FRINT#8," 
BBEOO FFFFFE" 
370 PRINT#8," 
PFFEBOO FPEFFFEFE" 
380 FRINT#8," 
FFPROOPERFPEFEFFE" 
390 FRINT#S," 


FPRFEFEPERREFEFE" 


400 FRINTKHS, " 


BPFPFPFFFEPRERFE" 


410 FRINTHE, " 


PPRPPEPEPPPPREEE" 


420 FRINTHE 
FÉPFPEPREFEREFS 
450 FRINTHKHE, " 

PPPPRPFÉRPRFE 

440 
450 
4860 
470 
480 


450 


FRINT#S, SPC 
FRINTRE, SPC 
FRINTHS, SFC 
FRINTHS, SFC 
FRINTHS, SEC ( 
PRINTHS, SFC 
FRINTHS, SPC 
FRINTHS, SFC ( 
FRINTHS, SPC ( 
FRINT#S, SPC 
FRINTHS, SPC ( 
PRINTHS, SPC 
FRINTHS, SPC 


sn 
IRL 
Les) & 

510 
ETS 

pe D 
CRE 
s4 


Se 


10 FRINTH9, SFC CE 


GBEOG FPFEFFPE" 


OBEO0 FFFFFFFE" 


FRINTHE, SPC C£é 


FRINTH#B, SFC (21) 
FRINTHB, SPC (21) 
FRINTHB, SPC (21) 


FRINTHS, SPC C2) 
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BFFPPPEPF 


FPFFFFFFFE" 


EPPFFPPF O0 


FFFFFPFFFE" 


BFFFFFF 0000 


FFFFFFPE" 


EFFFFF 00000 


FPFFFPE" 


EFFFFF 00000 


EFFFFF 00000 
EFFFFF 00BE0 
BFFFF OOBBE 


EFFFFF O0BE 


FFFFFPFPE 


PPFFFEPFE 


FFFFFFPFE 


PPFFFPFEF 


PPPFPPPPF 


PRFFPPREE 


FFPFPFPEFF 


FFPPFPFFE 


FPFFFPFRFEE 


BPEFFEPFROBFFEFEREFEFEE 


BPPFPPPPPERPERPRE 


BPPPPPPPPRPPPPEPE 


BPPFPFERFEFPRERE 


BPPFFRFRFRERFERE 


BEPPPFFPREPERPRPPEPE 


"RPPPPFFFPERE" 


à 


“EPFPPPPPPPE 


D'BFFPEFFEPREPEEPEFFE" 
FFFRBFFEE" 


"EFFEFEFPFPPFEFFFEBFFE" 


“RPFPFERPEEEE 
“EPPPBPPPPEPEE 
"BPFEFF PF 
"ÉBFFF 


PPPPPEPE" 
PPFFE" 
PPPPFE" 
PPFFE" 
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80 FRINTHS, SFC (21) BEPFFEFEFFEFERPEPFEPE" 
840 PRINTH#S, SPC (20) 'BBPFFEFEPERFEEFEPEEFE" 
650 FRINT#S, SPC (20) "EBPFPFFEPEPEPEFERPER" 
660 PRINTÉ#S, SPC (20) "BBPFFFEPFEFEPEFEREE" 
670 FRINTHS, SFC (20) "BBFPFFFEFEFFRERFEE" 
680 FRINTHSB, SPC (20) “EBBPPPPEFEPEPEPEEE" 
690 FRINTHS, SPC C29) "EBFFFFE EFFE" 
700 BRINTHS, SFC (25) "EFPE BFFFE BEBE 
EEE" 
710 FRINT#8," BBE BFFE BFFH 
FFFÉBEFPPFEFFFFERFEPERFEBE" 
720 FPRINT#8," BEFFFFEPEE BFPPFREREE 
FPÉPEFFEFERFEPFEFERERFEBPERE" 
730 PRINT#S," BPPFEPPFEPFFFPFEBEBBEBPFEFEFEFFEBE 
PPFPFPPPEPEFEPEPERERFEFEFEEFE" 
740 PRINT#S, "BPFEFPFPFPFEFEPEPEPEPFEPPPEPEPEE 
BEFFFFFPEFEPEREERRRFEEPERS" 
750 FRINTHS, "EPEFPFFFPFPPERFRPPRFEPPEFEPPEPE 
HE  FEFFFFEFEFEPEFRERPERFE" 
760 FPRINTHS," BFFPFPFEFPPFPFEFPPPPEPEFEPEE 
BBFPFFEFFRFPEFEEFPE" 
770 FRINT#B, “EFPFFFPFPFFFPFRFEFEFEFEFEE 
ÉBBBEBE" 
780 FRINT#B,"  BFPFFFPFPFFFFFFEFEE" 
790 FRINT#8," BBBBEREERE" 
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(] 
] () 
0 0 () 
0 0 ] 
0 0 0 
BPPPFPPPPPPPPPFE 


BPPPPPPPPPFFPPPPPPPPPFFPFE 
BPFPFPPPPPFPFFPPFPPPFPPPFPFPPPPE 
BPPPPPPPPFPPPPPPPPPPPPPPPPPPPPFPFEPEPE 
EPFPPFPFPPPPFFPPPFPPPPPPFPEPPPPPPPPPFPPPPPE 
EPFPPBPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPFPPBPPPE 
BPFFBPPFPBPPPFPPPPPFPPPEPPPPPPPFPPPPPPBPPPPPBPPE 
BFPBPFPBPPPPFFPFPF PPPPPPPPPPPPPPPPPFPPPPPEPFEPEPE 
BFPEPPBPPPFPFPEPPPPPPFPPPPPPPFPPPPPPPPPPFPPPFPBFPPEPE 
BFFFPPBPPPPEPPFPPPPFPFPPEPFPFFPPPPPPPPPPPPPPPPPBPFPPPB 
BFPFFPBPPEPBFPFFPPPPPPPPFFPPFPPPPPPPPPPPPPPFBPPPBPPFFPEP 
FPFPPPPPPPBPPBPPPPPPPPPPPFPPPPPPPPPPPPPPPPPBPBPPPPPPPFPP 
BPPFPPPPFBFEPPBPPFPPPPPPFPPPPPPPPPPPPPPPPPPPBPBPPFBPPPPPPE 
BPPPPPPPPPBPPBPPBPPPPPPPPPPPPPPPPPPPPPPPPPPPBPBPPPFPPFFPPB 
EPPPFPPFPPBPFBPPBFPFPPPFPPPPPPPPPPPPPPPPPPBPEPPPEPPPPPPPPE 


BPPFPPPPPPPEFPE PPPPPPPPPPPPPFPPPPPP BPPBPPPPPPPPFPE 
FPFFPPPPPFPE PPPPPPPPFPPPPPFP EPPPPPPPPPPPF 
BPPPPPPPPPPP FPPPPPPFPPPPPPP PPPPPPPFPPFB 

BPPPFPPPPF PPPPPPPFPPPPPP PPPPPPPFPFFES 
BFPFPFPPPP PPPPPPPPPPPPP PPPPPPPPPPE 
BFPPFPPPP PPPPPPPPPPPP PPPPFPPPPE 
BFPPPFPP 00 PPPPPPPPPPP 00 PPPPPPPFPE 


BPFPPPP 0000  PPFPFPFPFFF 0000 PPPFFPFE 
BPPPFF 00000 FPPFFFFFFFP 00000  PPFPPPB 
BFPFFF 00000 FPPFPPFPPPF  OBBOO PPPPPPPE 
BFFFFF 00000 FPFPFPFPPPP OBBDO PPPPPPPB 
BPFFFP OOEBO FPFFFPFPPPP OBBOO FPPPPPE 
BPPPF OOBBE PPPPFFPFFFF  BBBOO PPFPPE 
BFPFFP OOBB PPFPFPPFPPPPFEBOO PPPPPPPE 
BFFPPFPPPOBFPPFPPFPFPPPPPPBOOPPPPPPPPPPE 
BFPPPPFPPFFFFPEEF FPFPPPFPFFFFPPFE 
EPFFPFPFFPPPFFBFF BPFPPPPPPPPPPFPE 
EFFPFFPPPFPPPEPE FPEFPFPPFPFFFEE 
BFPFPPPFPFEPPPEF PPPPPEPFFPPPFFS 
EFPPFPPPFFFPPPPFFPFPFPEPPPPPFFPE 
BDFFPFFFPDE 
EFFFFPFFE 
BFPFPPE 
FPFFF 
EPFFB 
EFFFE 

BEFEFPFEE 
EFPFFEFFPPEE 
EPFPFFPFPPE 
BFPFFPFFPFPPEE 
EPFEPPPPPFFPPEFE 
BFFFEFFFFFPFFPFEPPE 
EPFFFFPPFPFPPFFERFFE 
EFFFFEFPPFFPFFPPEBFFE 
BFPFFBFPPFFFPFFFFPEBPE 
EFFFBFFPFFFFPPFPFPPE 
EPFEFPPPFPFPPPPPPPPFPE 
EBFFFPFPFPPPFFFFPPPE 
EPFPFPPPPFFPPPFFPPEB 
BEFPPFFFFPFFFPFPPFFPE 
BEPFPFPFPPFPPFPFFPFFE 
EBFFFPFFFPFFFFFEPFPE 
EBFFFFPPPFFFFPEFPFE 
BEFPPFFPFFFFFFFPEE 
BBEFFFFPPPPPPEFPPE 
BRFFFFE EFFE 
EFFE ÉFFFB BBE BEBE 
BEBE EPFB  EFFEFFFEBEFFFFFFPFPFFFPEFPFFEE 
BFFFFFFFEE BFFFFFEPPFFPPPPEPPFFFPFFFPPEPERPPEPEFE 
BPFFBPPPPPPPPPPEBRERBFFPPPFPPPEBFFPFFFPPEPFPPFPPPPPEPPFPPPFEFE 
EPFBPPPFFPPPPPPPPPPPPFFFPPFPFFFE  BEFPPPPPPPFPPRPPPPPPEPPPES 


BPEFFPFFFFFFPFFPPFPFFFPPPPEPPE B  PFFFPFPFFFFFPFFPEFEFFEE 
BPFPPPPFPFPPFFFPPPPPPPFPEFPE BBPPFFPPFFFPFFEEEE 

EFPFFPPPFFFFEPEPEPFFFFPPE BEBEBEE 
EFPPPPFPEPEFFFFFFPE 


EBBBEBBEBBEBE 


Chapitre | Utilitaires 
d'ordre 
général 


ÉDITEUR DE LIGNES 


L'Amstrad possédant un MODE 80 colonnes, il peut être intéressant de 
saisir du texte (pour écrire un livre par exemple...) dans le but de le repro- 
duire sur imprimante. Le programme “Editeur de Lignes” vous permet de 
saisir du texte sur 80 colonnes, ligne par ligne, d'insérer ou de supprimer 
une ligne, de lister tout ou partie des lignes entrées et enfin de sortir le 
document sur imprimante. 


Programme 


10 REM Editeur de lignes 

11 : 

20 MODE 2? : REM 80 Colonnes 

20 CLS 

40 : 

30 IsO: DIM A6 (S00):REM S00 Lignes 

&Q Ief+isIF IMX THEN HX=&I 

70 PRINT Is: INPUT &S& CI) 

80 IF LENCAS(I))=0 THEN 110 : REM Commande 


60 G0OTO 60 


LOG 
110 KEM Commande 
LC 


150 FRINT:FRINTO Liste sur ecran” 

140 FAINT'"'S)upprime une ligne" 

150 FRINT'"'Iinsere une ligne" 

160 FRINT'eDiite" — 
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185 FPRINT'E) crit eur imprimante" 
170 INFUT'Votre choix"sC# 
180 IF CHe"L" OR Cée"st OR CHa"tt OK Cée"p" OK 
C&S="D" THEN #06 
190 FRINT'"'ECommande inconnug!"sGOTO 170 
200 
Bio IF C&e"L" THEN GOSUR 1000 
220 IF C#ée"S" THEN GOSUE 2000 
250 IF CHée"I" THEN GOSUE 50066 
B40 IF Cé="D" THEN GOSUE 4000 
250 IF CHetE" THEN GOSUE SG 
260 ! 
270 GOTO 110 
290 REFI HOKXKOKOKOE OK OH OHOK ROMEO KO OK OO HO OK XX 
1000 KEM Ligtage Ecran 
1901 
ne INPUT "des DES INFUT as À 
FOR IeDE TO À 
D FRINT ITsA&iTI) 
1080 NEXT TI 
10860 à 
1070 RETURN 
1060 REP OXHKOHOKOK OK HOMO OH RME MON NO HOOKONE HC X 
FOOD REM Suppression de ligne 
INFUT"Ligre 
IF OLEMX OR Leo 
FÉCENT Los éé CL) 
INFUT'Etes-vous sur  (OD/AGUS RS 
JFK GS UOU THEN AE 
REF Su 
FOR TL. 
AS CL) = 08 (TH 1) 
NEXT OT 
Fig CPAX me OU ff Xe 7 


oo. 
AOHOH RH KOKOK KE OK DER OK EEE HE UK KE 
REP HR en de ligne 


INPUT Insertion apres la ligne"sl 
IF LéhX OR Leo THEN 3110 
PRINT L+iss INEUT 8% 


; REM Insertion 
2060 FOR I=MX TO L+2 STEF -1 
3070 A CI =ASCI- 10) 
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#090 NEXT I 
2090 A$(L+1)=A$:MX=MX+1 


100 
2110 RETURN 
3120 REM XXXCK OK KO OK HORCKOK OK OK KCHE KOKOK HCKONXK 


4000 REM Retour a l'edition 

ADO 2 

4010 INFUT'Ligne"sLl 

AO IF Lex THEN 4050 

AUEO FRINT' Ligne occupesg": INFUT'Etes-vous sur ( 
C/NIUS RS 

AOAO IF RE&UN" THEN 4070 

4080 Esls els GOTO 70 

4080 : 

4070 RETURN 

40890 REM 


INPUT! Impression a partir de"sDE 
INPUT 'jusqu'a"sé 

IF &SMX THEN &=MXx 

IF. DE THEN DE=1 

5080 FOR IeDE TO À 

UC FPAINT #5,4$ (I) 

070 MNEXT TI 


Le] 


RETURN 


Analyse du programme 


Ligne 20 : Passage en MODE 80 colonnes. 
Lignes 50 à 90 : Programme principal. 

Lignes 130 à 270 : Menu général. 

Lignes 1000 à 1070  : Listage du texte sur écran. 

Lignes 2000 à 2130  : Suppression de ligne dans le texte. 
Lignes 3000 à 3110  : Insertion de ligne dans le texte. 
Lignes 4000 à 4070  : Edition écran. 

Lignes 5000 à 5090  : Impression écran. 


CLASSEMENT DE NOMBRES ET DE CHAÎNES 


Dans votre vie d'informaticien, vous serez sans doute amené à vouloir 
classer des données numériques (ou alphanumériques) par ordre croissant 
ou décroissant (respectivement alphabétique ou inverse alphabétique). 
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Le langage BASIC fait la différence entre caractères et nombres, c’est 
ainsi que deux programmes sont proposés : 


- un pour le classement de chaînes de caractères, 
-_un pour le classement de nombres. 


Il existe un nombre impressionnant de méthodes de classement par ordre 
croissant ou décroissant. Celle qui a été retenue ici offre deux avantages : 
sa simplicité et sa rapidité. Le programme reprend la méthode dite des 
“inversions” : un tableau contient les entités à classer. La méthode consiste 
à balayer le tableau en inversant deux entités successives a et b si elles ne 
répondent pas à la condition “a>b” ou “a<b” pour un classement décrois- 
sant, respectivement croissant. 


Le tableau sera balayé jusqu’à ce qu'il n’y ait plus aucune inversion dans 
un balayage complet. 


Classement de nombres : 


10 REM Classement de Nombres 

Li : 

20 DIM T(100):REM 100 Donnees Max 

100 REM Acquisition des donnees 

101 : 

110 CLS:FRINT" CLASSEMENT DE NOMBRES" 
120 FRINT:FRINT'Entrez les donnees a classer" 
150 FRINT'La saisie se terminera par 999091 

140 : 

150 I=is: FRINT 

160 FRINT "Donnee"31ls:INFUT TI) 

17Q IF T(1)2:9999 THEN I=l+i:GOTO 160 

180 : 

200 REM Classement 

201 : 

210 CLS 

220 FRINT'Vouler-vous un classement croissant" 
250 INFUT'ou decroissant (C/D)"sR& 

240 IF R$£r"C" AND R&£E"D" THEN 200 

250 : 

260 IN=O:REM Indicateur d'inversion 

270 FOR J=i TO I-i 

280 C=T (J):DET(J+1) 

290 IF R$="C" AND CrD THEN T(JieDsT{(gJ+l)ets IN 
=] 

200 IF R$éæe"D" AND C£D THEN TJ) ze T (J+lieæls IN 
=] 

5106 NEXT J 

#20 IF INzil THEN 260 


350 3 


UTILITAIRES D'ORDRE GÉNÉRAL 141 


400 REM fffichage des resultats 

401 : 

410 CLS:FRINT" DONNEES CLASSEES°":FRINT 
420 FOR J=1 TO I 

4750 A=T (J) 

440 IF A:99G9 THEN FRINT À 

450 NEXT J 


Classement de chaînes : 


10 REM Classement de Chaines 

LA à 

20 DIM TBCIOO) Es REM 100 Donnees Max 

100 REM écquisition des donnees 

1O1 

110 CLS: FRINT" CLASSEMENT DE CHAINES" 
120 FPRINT:FRINT' Entrez les donnees a classer 
150 FRINT'La saisie se terminera par 9998" 
LAC 

150 Iels FRINT 

1689 FRINT "'Donnee!"s less INPUT T 
170 IF TROT) EEUSGSSQN THEN Ia! 
180 : 

200 KREM Classement 

e0U1i 

210 CLS 

220 PFRINT'Vouler-vous un classement croissant" 
É INPUT fou decroissant (C/D) "RS 

IF KES E"C" GND KR&£E"D" OTHER 200 


T3 


&CI 
+1: GOTO 160 


INSQsREN Indicateur d'inversion 
FOR Jei TO TI-1 

CéeTé Ci s Dée Ts (Ji) 
EL IF RézUC" AND CDS THEN T& CJo)eDés TS 415 
Ces INel 
; LE OR UDU AND CHEDS THEN TS GI) æeDés {& (+1) 
ENT 
REXT J 
IF OINzl THEN Zéc 


AU REM êffichage des result: 
4 
41€ 
420 
450 É 
#40 IF ASE ENOGSEU THEN FARINT 8% 


AGO NEXT J 


Ste PRINT 


BONREES 
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Analyse du programme 


Lignes 100 à 180 : Acquisition des données à classer. 
Lignes 200 à 330 : Classement. 
Lignes 400 à 450 : Affichage des résultats. 


Remarque : Les programmes de classement de chaînes et de nombres 
sont différents. En effet, si nous ne faisions qu'un seul programme de clas- 
sement, il opérerait sur les chaînes, puisque les chaînes peuvent aussi bien 
contenir de l'alphanumérique que du numérique. Malheureusement, la 
chaîne “21” est inférieure à la chaîne “3” d’un point de vue alphanumérique, 
ce qui est faux d'un point de vue numérique (on a en effet 21>3 |). 


On est donc contraint de faire deux programmes de classement. 


HORLOGES 


Comme tout bon micro-ordinateur familial, l'Amstrad possède une ins- 
truction BASIC (ici TIME) qui donne le temps écoulé depuis la mise sous 
tension de l'appareil (ici en 1/300 sec.). Pour constituer une horloge, il suffit 
donc d'initialiser le temps à la valeur courante, et de compter le nombre de 
secondes écoulées depuis ce moment. 


Cette opération est faisable sur tout ordinateur possédant une instruction 
TIME (ou équivalent). Le programme qui suit adopte cette démarche. 


Programme 


110 : 

120 CLS:FRINT'Entrez l'heure sous la forme : HH 
{MM/SS" 

150 FRINT:FRINT: INPUT H$ 

145) FRINT: INFUT''Éppuyez qgur £ENTER: pour valide 
ris 

150 à 

160 HeVAL(LEFTSCH$,2020) 

179 M=VAL (MIDS (H$, 4,2) 5 

180 S=VAL (RIGHTS (HS, 2) ) 

1590 

200 TO=TIMEs:CLS 

210 : 

220 VI=(TIME-TO) /500 

225 IF Vii=i THEN TO=TIME 

2EQ IF Vii=i THEN S=S+i:IF S=éo THEN S=ûs M=M+1l: 
IF MzGo THEN M=Os:H=H+1: IF H=24 THEN H=û 

240 LOCATE 10,10:PFRINT H"/9M"/"6" " 

250 GOTO 220 
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Analyse du programme 


Lignes 120 à 130 : Lecture de l'heure courante. 

Ligne 140 : Validation de l'heure entrée. 

Lignes 160 à 180 : Conversion de la chaîne H$ en HH/MM/SS. 
Lignes 220 à 250 : Calcul du temps écoulé et affichage. 


Peut-être êtes-vous déçu par la précision de cette horloge ? Rassurez- 
vous. L'Amstrad possède une instruction qui lui permet de se différencier 
des autres micro-ordinateurs. Il s’agit de l'instruction EVERY a,b qui permet 
d'effectuer un débranchement de la ligne courante chaque a X 0.002 m/ 
sec. Si nous prenons a=50, le débranchement se fera chaque (50 x 0.02 
— 1 sec.) seconde. L'écriture du programme est donc grandement simpli- 
fiée, et la précision est remarquable. 


Programme 


100 REM Horloge 2% 

110 : 

120 CLS:PFRINT' Entrez l'heure sous la forme #5 HH 
/MM/SS" 

130 FARINTs: PRINT: INPUT H$ 

140 FRINT: INPUT "Appuyez sur £CENTERS pour valide 
r'iÂS 

150 : 

160 HeVAL (LEFTS (HS, 2) ) 

170 MeVAL (MID CHE, 4,20) 

180 S=VAL (RIGHTS (HS, 2) ) 

CLS 


EVERY 50,0 GOSUR 300 

GOTO 23%0 

REM XGA KEOMOKOKOKOKONOKOKOKOKOKCHEOKOEOE OK OKKOKOKKOHOKOMEHEONOKOOK KR 
500 REM Frocedure de calcul et d'affichage de 1 
‘heure 

310 : 

320 SeS+i1:1F S=60 THEN SeO:MeM+ls IF M=z60 THEN NM 
=): H=H+1: IF H=24 THEN H=0 

350 LOCATE 10,10:PRINT H"/"MM/ngu on" 

340 : 

350 RETURN 


Analyse du programme 


Lignes 120 à 130 : Initialisation du temps courant. 

Lignes 160 à 180 : Conversion de la chaîne H$ en HH/MM/SS. 
Ligne 200 EVERY: 

Lignes 300 à 350 : Calcul et affichage de l’heure. 
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AFFICHAGE PERSONNALISÉ 


Pour donner une touche personnelle à l'affichage de titres ou de mes- 
sages sur l'écran, voici un utilitaire dans lequel vous choisissez la vitesse 
d'affichage du message et l'occurrence d'affichage des lettres (aléatoire ou 
linéaire). 

Exemple d'affichage 

10 AS="TEST DU FROGRAMME MESSAGE SONORE" 
20 TVe=O0:Ve=90:CLS:GOSUR 10000 

30 END 

Programme 


10000 REMAKE OK HN AMC ECC CO RCE 


x AFFICHAGE FERSONNALISE 


LOC  REM OKOCOACKOKOKOAOHHEOR ANNE HE ME ER OR EH CE MEME EE OR ON KE HR 
** 
10080 HEM % 
* 
10060 REM X Entree : TVeVitesse d'affichage fix 
EX 
LOGO MEFI OX qu aleatoire LTVet ou TV 
1% 
LOGO MEN  % V'eVitesse d'affichage 
* 
10000 KREM % entre 1 et 10 
LOTO REF 
x 
LOLLO REP AK OHOMOKOKE M AOROKOK HE AO OO RE MER HER OO EH HONOR MR RE X 


l=i T0 
1 IF 1 

2 (1004) KENDXKLS 

ID#(A#,I,1) °L 
: Jel TO TEMPS: 
PRINT E$s; “Affiche 
SOUND 1,80,4,4 °F 
à 


THEN TES 


10150 
10160 
10170 
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Analyse du programme 


Ligne 10140 _: Calcul du temps passé entre deux lettres. 
Ligne 10150  : Sélection de la lettre à afficher. 

Ligne 10160 : Pause. 

Ligne 10170  : Affichage de la lettre. 

Ligne 10180  : Bip sonore. 


UTILITAIRES D'ÉCRAN 
INPUT borné 


Ce programme permet d'effectuer un “INPUT” numérique entier ou réel, 
compris entre deux bornes définies à l'avance. L'INPUT est refusé tant qu'il 
n'est pas compris entre les deux bornes. 


L'appel au programme se fait par “GOSUB 10000”. 
Au préalable, 


- Stocker dans L1 la valeur minimale permise, 

- Stocker dans L2 la valeur maximale permise, 

- Poser la question nécessitant l'INPUT borné sous la forme PRINT 
“texte” ; (ligne 25 dans l'exemple). 


Exemple 


19 Li=-10:L2=100 Valeurs limites 

20 CLS:FRINT'"Veuillez entrer un nombre" 
20 FRINT'"'compris entre -10 et 100": 

40 GOSUE 10000 


90 END 

Programme 

10000 REM XX XX NNCKNOK KM HONOHON KE HONOÏK KE NO NON NH CN NON NC NOK 
10010 REM * X 
10020 REM * REFONSE NUMERIQUE  BORNEE * 
10020 REM * x 


10040 REM XX XKK ACK NC ACKKNE AK ACKACORHCNNC AO NO NO NO OO OK 
10050 REM * 


* 


10060 REM * Entree : Li = Minimum * 
10070 REM * LE = Maximum * 
10080 REM * Sortie N = Nombre lu * 
10090 REM * X 
10100 REM XX XX X ACK NH ACC AAA ONCE OO OO OC 
19110 : 

10120 H=POS (#0): V=VFOS (#0) ‘’Fosition du curseur 
10150 : 


10140 LOCATE H,V:PRINT SPACES$ (15) 
19150 LOCATE H,V:INFUT N 

10160 IF NL? OR NEL1 THEN 10140 
10170 : 

10180 RETURN 
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Analyse du programme 


Ligne 10120  : Lecture et mémorisation de la position du curseur. 
Ligne 10140  : Positionnement du curseur. 
Ligne 10160  : Test si le nombre entré est compris entre le min. et le max. 


Saisie de réponses prédéfinies 


Cet utilitaire permet de faciliter la saisie clavier de questions pour les- 
quelles le nombre de réponses est fini et restreint. 


Une touche quelconque permet de changer de réponse. La touche ENTER 
valide la réponse choisie. 


L'appel au programme se fait par “GOSUB 10000”. 


Au préalable, mettre dans N le nombre de réponses possibles, dans A$ 
le libellé des réponses possibles. Poser la question sous la forme PRINT 
“texte” ; (ligne 30 dans l'exemple). 


Exemple 


AE HE AMC AO AE CRC OO CHE AH 


# x 
# INPUT AVEC REPONSES FREDEFINIES k 
k x 
A HE NA AC CHENE NEC OK CCE NC CE X 


UTILITAIRES D'ORDRE GÉNÉRAL 147 


: a  — 
mL C4 Es 


ns 


GOTE Lérôt ‘houclie de Lecture clavier 


RETURN 


Analyse du programme 

Lignes 10120 à 10170  : Calcul de la longueur maximale de la réponse. 
Ligne 10210 : Lecture et mémorisation de la position curseur. 
Ligne 10260 : Lecture du clavier. 


Lignes 10290 à 10330 _ : Passage à la réponse suivante. 


Effacement d'écran 


Ce programme permet d'effacer (remplir de blancs) tout ou partie de 
l'écran. L’effacement est réalisé à partir d'une position X,Y du curseur, et 
sur une longueur de N caractères. H et V contiennent respectivement l'abs- 
cisse et l'ordonnée de début de zone à effacer. N contient le nombre de 
caractères à effacer. 


Exemple 


10 Hel:Ve10 "Fosition de depart d'effacement 
20 N=40 ‘Nombre de caracteres a effacer 

50 GOSUE 10000 ‘Effacement 

40 END 
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Programme 


LOOOO EM A HO KR OK NONHOKOHCKONE MONEHOCOK OK HN KKCOKKCOE NEO MORE OC NOK NC NC 
10010 KEM % * 
‘ REM *X EFFACEMENT D'UNE PARTIE DE L'ECKAN  * 
10050 REM %X * 
10040 REM  XNOK KO OKOKOEOKOKOKOKMCOK HE HO K NO NOK KE KR OK OK Me Ne M M CN 
10060 KREM % 
10060 REM *X Entrée : HsFosition horisontale de 
19070 KEM X debut d'effacement 
x 

X 

* 

* 

* 


L1O0E0 


x 

X 

X 

10080 KREM VePosition verticale de * 
10060 KEM debut d'effacement * 
10100 KEM MeNombre de caractere(s) * 
10110 KEN a effacer *X 
n KREM : * 

RE HOKKKOKOMONOHONONONOOH OKON KOKOK OKON ME OKON OKOMOKCX 


LOCATE H, 4 


10120 


10180 
BOSS) EI NEN-SSS: GOTO 10160 


LE CN 


10180 PRINT SPACE 
10190 RETURN 


Analyse de programme 


Ligne 10150  : Positionnement du curseur en début de zone. 
Ligne 10170  : Effacement modulo 255. 
Ligne 10180  : Effacement résiduel. 


Éditeur de masques d'écran 


Pour faciliter la création d’“écrans de saisie”, voici un utilitaire qui permet 
de fabriquer des “fichiers-écrans de saisie”. Ces fichiers sont constitués 
d'un certain nombre de rubriques positionnées selon votre choix sur l'écran. 


Programme 


100 REM Saisie de 
110 à 

126 MODE 1:1INE 
120 FRINT SFACE 
SQUES D'ECHENT : 
14ù LOCATE 1,5 
150 INPUT "Nombre de rubriques 2 !"3NR 
160 DIM À% CNRS, CONRT, L CN 

170 FRINT: INPUT" Titre du masque stats 
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180 : 
150 


Fo 


an 


210 


HOME LEE 
: Se. Has Le : 
ÉCENT 8 INPUT "Col conne" t (ii 
ELITE LNTs: INPUT LIi qe Mal éTi 
250 NEXT TI 


4 


Hô : 

270 CLS: INPUT Nom du fichier masque 2 "Min 
280 OFENOCUT N& 

260 PFRINTAS,NE Nombre de rubriques 

ZOO FRINTHOS,TS Titre du masque 

Ho FOR lei TO NK 

320 FPRINTHO ASCII Kubrique 

L PFRINT#HOS,L (T5 “Ligne d'affichage 
340 FRINTHS, CCI) “Colonne d'affichage 
290 NEXT I 

560 CLOSEGUT 


Analyse du programme 


Lignes 100 à 140 : Présentation. 

Ligne 150 : Nombre de rubriques dans le masque. 

Ligne 170 : Titre du masque. 

Lignes 190 à 250 : Saisie des positions et libellés des rubriques. 
Lignes 280 à 360 : Ecriture du fichier masque. 


Exploitation des fichiers masques d’écran 


Cet utilitaire permet d'exploiter les masques d'écran créés par le pro- 
gramme précédent. 


Le nom du fichier est inscrit dans la variable N$, et l'utilitaire est appelé 
par “GOSUB 10000”. 


Les flèches “vers le bas” et “vers le haut” gèrent le déplacement parmi 
les rubriques. La rubrique sélectionnée apparaît en inverse vidéo. L'appui 
sur la touche ENTER valide le choix de la rubrique. 


Exemple 


10 N$="MASQUE "": GOSUE 10000 
20 FRINT'Rubrique choisie :"3F 
30 END 


150 


Programme 


10006 
XX 
15010 
x 
10020 
*X 
LOGO 
*X 
10040 
LE 
10060 
x 
10060 
*X 
10070 
*X 
10080 
x 
10090 
LE: 
10100 
10110 
10120 
LOLEC 
16140 
10150 


10160 


10270 


102890 


Le) 
ARE TR) 


10550 
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RER XACX AOKCKOK HAN HORMONE MORE HE MCE ACOR HO HEC EME EAUX 


REM %X 


REM *X AFFICHAGE ET GESTION DE MASQUES 


REM x 
REX HCK OK OHOKO KR 
REM X 
REM *%X Entree : 
REM *X Sortie : 
REM  % 
REP  HCHOROUHREOHEOKOHEOKOK OK 


REM Lecture du 


OFENIN N# 


AO OKOKOK ON HOKOKOHEOO HE EE COR HE KO HOMO OK 


NS = Nom du fichier masque 


FO æ Choix de La rubrique 


A AOOHEOMEOAOK HO HE AOHEOKME AO MONO AC A H 


MAS QUE 


LNFUTHS NE Nombre de rubriques 


DIM A% CNE), C CN 


INFUTHS,TS Ti 
FOR lei TO NR 
INFUT#9, &$ CI 
INPUT 
INPUT: 
NEXT I 
CLOSEIN 


REP &r#ichage 


QGLOLPFEN 


FOR I=1 10 NH 
LOCATE CCD, 
PRINT A#(I) 

NEXT 1 


. (NO) 


Êre 


\ 
U 
# 


du masque 


BORDER © 


Las LeFRINT Tée PAPER © 


LCI) 


RER Gestion du masque 


UTILITAIRES D'ORDRE GÉNÉRAL 151 


105680 LOCATE COIN EL Clos PAPER Ds PRINT 48 CL PFBFE 
FR GiFel 

ASEINEÉE Se TE BRU TMEN 1070 

A=éSC (AS) 

IF AS HBAaC 


10400 
10410 SA THEN 10490 
10420 IF BelSs THEN 10550 
1040 

10440 REM Vers Le haut 
10450 3 

10460 FePF-isTF Fez0o THEN F=NR 

10470 GOTO 10530 

10489 : 

10490 REM Vers le bas 

10500 

10910 FeP+ls IF FENR THEN F=i 

10520 

10830 LOCATE C(F) LP) hs FAFER ZiFRINT &$(FP)2:PFAFE 
KR O:GOTCO 10270 

108540 2 

108550 RKEM RETURN 

105860 CLS 

10570 RETURN 


Analyse du programme 


Lignes 10130 à 10220  : Lecture du masque N$. 
Lignes 10240 à 10320  : Affichage du masque. 
Lignes 10340 à 10570  : Gestion du masque. 
Lignes 10370 à 10420: Gestion du clavier. 
Lignes 10440 à 10470: Déplacement vers le haut. 
Lignes 10490 à 10530: Déplacement vers le bas. 


Saisie formatée 


Peut-être vous êtes-vous déjà posé le problème suivant : est-il possible 
de saisir un nombre réel avec N chiffres avant la décimale et P chiffres 
après ? Cet utilitaire permet de le faire. Après avoir choisi le nombre de 
chiffres avant et après la virgule dans N et P, le masque de saisie est affiché 
sous la forme : ##..##. ##..## 

EN OS 


N P 


Le point décimal est géré automatiquement. La touche ENTER valide 
l'entrée du nombre. Le nombre stocké est entré dans la variable NL. 


20 CLS: FRINT'Entrez 


LEO 


20 GOSUEH 
END 


Programme 


XX 
LOOLO 
x 


Le LUE 


de te te cl tuer 


Lace REP 
LE: 

LOSC KEM 
# 
10060 
# 


10070 


La 


1 OE 0) 
# 

10090 
* 


OA CONS 


* 
LOi TLC 
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un nombre reel 2": 


AOMEOKOHEOKOKOHOHOHOKOOOHEOOKOKOHOKOMEONEOHOK KE ROMEHOKOHOH HER MEN EX 


# 


# 


NUMERIQUE FORMATEE 


SAISIE 


AH AH HEADER HEC CHOC 


Entrée 1 HeMNombre de chiffres 


avant Le point decimal 


Feflormbre de cha féires 
point decimal 


Lt 


AAA HR AC AEOHOE OREHEEHH HREDHOE C AA 


LR 1 a A à OR CR LCR RE 


Mi gui E 


23: 


ation de 1° 


nm VsU(S (Ori 
Fi 
Hhu PRO RP NU M MNEXT I 


Let TO 


sE 


Fe PET NTI so NEX 


TEsIF THEN LUE 


RE sn 41 


UTILITAIRES D'ORDRE GÉNÉRAL 153 


CON) AND ge EN SN ASC 
EN FRINT CHARS C7 B0OTO 16 


feT+l “Nombre de 
. mUUUOTHEN SVG 


AND IéeN AND F=0 THEN 10560 
1 AND LoeN THEN Héep$e", "ee BRINT" "3 
RINT CHAS (7) 3:G0OT0 10250 

AND Abe"e" THEN PRINT CHR CP) sule 


AD TI 
AND Ti 


THEN 
THEN 


LOTO ‘houcle de 


1G570 RETUEN 


Analyse du programme 


Lignes 10140 à 10210  : Visualisation du masque de saisie. 

Lignes 10230 à 10350  : Gestion du clavier. 

Ligne 10360 : Stockage du nombre entré dans NL et efface- 
ment du masque de saisie. 


Affichage programmé 


Cet utilitaire permet d'afficher du texte alphanumérique sur l'écran. Le 
texte à afficher est inscrit dans le tableau A$. Les tableaux H et V donnent 
les positions horizontale et verticale du texte à afficher. Enfin, la variable N 
contient le nombre de libellés à afficher. 


Exemple 


10 KEM &ffichage programme 

SU 

F0 NES 

40 Hd) elos VOL) ezsMHCE) ES: VODe=lSsH ES) =lés VS) =18 
30 A$(l1)="Fremier message" 

80 ASIE" Deuxieme Message" 

70 AS(F5)z="Troisieme message" 

80 CLS: GOSUE 1060000 

90 END 
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10000 KEM 
10010 KEM 
LOOEO REM 
1O0EOQ EM 
LOO40 KREM 
19050 REM 
REM 
REM 
FREM 
RKEM 
REM 
REM 


LOEQ FÜR 
10140 il 
10150 
LO1860 
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MAC MAC MOCHE HOME NOK NEC AC CHE MCE CCC CCE NC OMC NOK ACK 
x * 
X AFFICHAGE FROGRAMNME * 
* * 
ONE NE AO CICN HN HO NC AON ONCE NE ACCRA CC CHOC MOCHE CCC HE NC HO CAN 


ea 


* 
* Entres : NEND de donnees a afficher X 
X HePFositions horirontales * 
* VePFositions verticales * 
* A$eChaines a afficher * 
k * 
* X 


MN AAC AO AE OH ONE ACER ACX KACX 


Ti TO ON 


ICATE HOT), VCD) 


Analyse du programme 


Ligne 10140 
Ligne 10150 


: Positionnement du curseur. 
: Affichage du texte. 


Compatibilité 
CPC 464/CPC 664 


Tous les programmes proposés dans ce manuel fonctionnent indifférem- 


ment sur CPC 464 et CPC 664. 


n 


à 


Le CPC 464 étant une sous-version du CPC 664, les logiciels présentés 
‘exploitent donc pas à fond les possibilités du 664. 


A titre d’information, les nouvelles commandes existant dans le BASIC 
.1 du CPC 664 sont : 


Commande FILL pour remplir une surface quelconque. 


Commande GRAPHICS PEN et GRAPHICS PAPER pour initialiser 
l'encre et le papier utilisés en mode graphique. 


Le paramètre <INK MODE: 2 été rajouté dans les ordres PEN, MOVE, 
MOVER, PLOT, PLOTR, DRAW et DRAWR. Ce paramètre permet de 
réaliser un affichage normal, XOR AND ou OR avec l'affichage déja 
présent. 


Commande MASK pour tracer des lignes pointillées. 


Commande COPYCHRS qui renvoie le code ASCII d'un caractère lu 
sur l'écran. 


Commande FRAME permet de synchroniser le balayage de l'écran avec 
les apparitions de l’image sur ce dernier. 


Commande CLEAR INPUT pour vider le buffer clavier. 


Commande CURSOR pour contrôler l'affichage (non affichage) du 
curseur lors des commandes INKEY$ et INPUT. 


Conclusion 


Pour conclure ce manuel, précisons deux points : 


o Nous venons de voir par de nombreux exemples comment créer des 
modules utilitaires dans le but d'augmenter les possibilités de l'Amstrad. 


Cette liste d'utilitaires n’est pas exhaustive ; si vous éprouvez le besoin 
de créer une nouvelle fonction sur votre Amstrad, la méthode développée 
dans ce livre peut être fructueuse : 


- définissez les entrées/sorties du module, 
- structurez et hiérarchisez son traitement, 


et vous verrez que la tâche est facilitée. 


0 Il serait faux et prétentieux de dire que ces programmes s'adaptent sans 
difficultés à un micro-ordinateur différent de l'Amstrad. En particulier, les 
techniques développées dans les chapitres Ill et IV (le générateur sonore 
et les modes graphiques haute résolution) sont très spécifiques à l'Ams- 
trad et difficilement adaptables à une autre machine. 


Par contre, tout le chapitre Il (améliorations du Basic Amstrad), qui dé- 
veloppe des utilitaires, est facilement adaptable. 


Alors, si vous possédez un autre micro-ordinateur que l'Amstrad, et si 
vous avez … un peu de courage, je vous souhaite bonne chance ! 


Index 


Affichage graphique, 110 
Affichage programmé, 153 
AND, 17 

Animation graphique, 113 
Assembleur (routines), 38 


Basse résolution, 132 
Boîtes, 126 
BORDER, 27 

BOX, 104 


Chaïînage (de programmes), 25 
Changement de base, 52 

CINT, 33 

CIRCLE, 103 

Classement alphanumérique, 139 
Compatibilité CPC 464/CPC 664, 155 
Contexte, 124 

Couleurs, 104 

Courbes, 92 

CPC 664, 38, 155 

CREAL, 33 


DEEXK, 64 
DEF FN, 23 
DIV, 48 


DOKE, 65 
Double précision, 49 
DUMP mémoire, 66 


Éditeur (de lignes), 137 
Éditeur (musical), 76 
Effacement d'écran, 147 
Effets sonores, 86 


Fichiers (musicaux), 80 

FIX, 33 

Fonctions hyperboliques, 45 
Fonctions sinusoïdales, 43 


Gamme, 73 


Haute résolution graphique, 92 
Horloges, 142 


IMP, 21 

IN, 67 

INK, 27 
INPUT, 145 
INT, 33 
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Masques d'écran, 148 
MAT+, 56 

MAT-,56 

MAT*=, 57 

MATCON, 54 
MATIDN, 54 
MATINPUT, 55 
MATINV, 57 
MATPRINT, 55 
MATREAD, 55 
MATTRN, 56 
Métronome, 73 

MOD, 48 

MOIVRE, 98 
Morceaux de musique 
(programmation), 83 


NAND, 19 
NOR, 18 
NOT, 18 


OR, 18 


PAPER, 121 
PEN, 27 
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Pixel, 91 
Programmation BASIC, 12 
Programmation de caractères, 106 


RANDOMIZE, 31 

Redéfinition de caractères, 106 
Remplissage de contours fermés, 128 
Réponses prédéfinies, 146 

ROUND, 33 

Routines Assembleur, 38 


Saisie formatée, 151 
Son, 71 

SOUND, 88 
Synthétiseur sonore, 71 


TAG, 33 


Voix (musicales), 81 


XOR, 18 


Conseils de lecture 


Pour approfondir vos connaissances en BASIC Amstrad et mieux 
connaître le système des CPC 464 et CPC 664, P.S.I. vous propose une 
palette d'ouvrages utiles. 


POUR MAÎTRISER LE BASIC AMSTRAD 


[ BASIC Amstrad, 1 —- Méthodes pratiques — Jacques Boisgontier 
et Bruno Césard (Éditions du P.S.I.) 
2 — Programmes (à paraître) —- Jacques 
Boisgontier (Éditions du P.S.I.) 
Pour ceux qui ont déjà pratiqué un BASIC, voici deux ouvrages de per- 
fectionnement au BASIC Amstrad, illustrés par de nombreux pro- 
grammes-exemples. 


A paraître : 


0 Super générateur de caractères — Jean-François Sehan 
(Éditions du P.S.I.) 
L'art et la manière de dessiner des Lutins en BASIC sur Amstrad, MOS5 
et TO7/70, Commodore 64 et MSX. 
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POUR PROGRAMMER EN ASSEMBLEUR ET MIEUX 
CONNAÎTRE LE SYSTÈME DES CPC 464 ET CPC 664 


0 Assembleur de l’Amstrad — Marcel Henrot (Éditions du P.S.I.) 
Une initiation complète à l'Assembleur du Z80 : un bon complément du 
Clefs pour Amstrad. 


0 Clefs pour Amstrad — Daniel Martin (Éditions du P.S.I.) 
Mémento présentant synthétiquement le jeu d'instructions du Z80, les 
points d'entrée des routines système, les connecteurs et brochage, etc. 
Le livre de chevet du programmeur sur Amstrad. 
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RE n| 
Votre avis nous intéresse 


- Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques sur le présent livre. 
- Si vous souhaitez des éclaircissements techniques, écrivez-nous, nous adresserons votre demande 
à l'auteur qui ne manquera pas de vous répondre directement. 


- Ce livre vous donne-t-il toute satisfaction? 


- Y a-t-il un aspect du problème que vous auriez aimé voir abordé? 


Comment avez-vous eu connaissance de ce livre? 


C publicité [] cadeau 

[] catalogue [ librairie 

[] boutique micro [1 exposition 
Ü autres 


Avez-vous déjà acquis des livres PSI? 
lesquels ? D RE 


qu'en pensez-vous ? = 


Nom: sen 77 Prénom Age 
Adresse __ 
Profession 


Centre d'intérêt __ 


CATALOGUE GRATUIT 


Vous pouvez obtenir un catalogue complet des ouvrages PSI, sur simple demande, ou en retournant 
cette page remplie à votre libraire, à votre boutique micro ou aux 


Editions du PSI 
BP 86 
77402 Lagny-sur-Marne Cedex 


BASIC PLUS 
80 ROUTINES SUR 


AMSTRAD 


VW... connaissez bien le BASIC de votre Amstrad, et, sans 
songer encore à l'assembleur, vous souhaitez accroître les 
capacités de votre CPC 464 ou 664 : “BASIC plus” vous 
propose 80 routines pour “muscler” votre ordinateur, 80 manières 
de simuler des fonctions que vous n'auriez jamais cru pouvoir 
utiliser. 


"Basic plus” vous dévoile les possibilités du synthétiseur de 
son de l'Amstrad pour programmer un morceau de musique, ou 
produire des effets spéciaux ljeux d'arcades, bateau, alarme sur 
le navirel. 


"Mo graphique haute résolution” vous donne accès à 
des instructions graphiques évoluées, et vous initie au tracé en 
haute résolution. 

U, dernier chapitre sur l'animation graphique vous montre 
comment écrire des jeux d'aventure où d'action en haute 
résolution. 


Acc du BASIC Amstrad, découvrez BASIC plus! 
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